Daten unten anhängen - nur bestimmte | Herbers Excel-Forum

Hallo Excel-Profis,
ich habe ein Programm bei dem ich Datensätze "buche". Ich erfasse in einem Blatt und übertrage sie dann in ein anderes.
Ich nehme aber nicht alle Datensätze weil nicht immer alle 20 Buchungspositionen bebucht werden - bei denen steht dann "Leersatensatz".
Also übetrage ich erst alles:

Sub ÜbertragenB()
Application.ScreenUpdating = False
Sheets("Eingabe").Select
Range("H3").Select
Range("W4:BM23").Select
Selection.Copy
Sheets("Liste").Select
Range("A65500").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1:AQ65536").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Run Macro:="DeleteLeerdatensatz"
Sheets("Eingabe").Select
Range("H3").Select
Application.ScreenUpdating = True
End Sub

Sub DeleteLeerdatensatz()
Dim var As Variant
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 1 Step -1
var = Application.Match("Leerdatensatz", Rows(iRow), 0)
If Not IsError(var) Then
Rows(iRow).Delete
End If
Next iRow
End Sub