Option Explicit
Public Sub Test()
Dim rngSource As Excel.Range
Dim rngTarget As Excel.Range
'#Quelle
With ThisWorkbook.Worksheets("Eintrag")
Set rngSource = .Range("A1").CurrentRegion
End With
'nichts zum Kopieren?
If rngSource.Rows.Count = 1 Then Exit Sub
'nur den Datenbereich referenzieren (d.h. ohne Kopfzeile)
Set rngSource = rngSource.Resize(rngSource.Rows.Count - 1).Offset(1)
'#Ziel
With ThisWorkbook.Worksheets("Liste")
Set rngTarget = .Cells(.Rows.Count, "A").End(xlUp).Offset(1)
End With
' Call rngTarget.Worksheet.Unprotect(Password:="")
Call rngSource.Copy(Destination:=rngTarget)
' Call rngTarget.Worksheet.Protect(Password:="")
Call rngSource.Delete(xlShiftUp)
End Sub