Option Explicit
Public Sub Test()
Dim rngSource As Excel.Range
Dim rngTarget As Excel.Range
With ThisWorkbook.Worksheets("Eintrag")
Set rngSource = .Range("A1").CurrentRegion
End With
If rngSource.Rows.Count = 1 Then Exit Sub
Set rngSource = rngSource.Resize(rngSource.Rows.Count - 1).Offset(1)
With ThisWorkbook.Worksheets("Liste")
Set rngTarget = .Cells(.Rows.Count, "A").End(xlUp).Offset(1)
End With
Call rngSource.Copy(Destination:=rngTarget)
Call rngSource.Delete(xlShiftUp)
End Sub