Kopieren nur wenn grösser 0 ist

Public Sub Übertrag()
Dim loLetzteQuelle As Long, loLetzteZiel As Long, loStart As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle2")
loLetzteQuelle = .Cells(.Rows.Count, "L").End(xlUp).Row
Union(.Range("A5:A" & loLetzteQuelle), .Range("L5:L" & loLetzteQuelle)).Copy
End With
With Worksheets("Tabelle1")
loLetzteZiel = .Cells(.Rows.Count, "B").End(xlUp).Offset(1).Row
.Range("B" & loLetzteZiel).PasteSpecial Paste:=xlPasteValues
loStart = loLetzteZiel
loLetzteZiel = .Cells(.Rows.Count, "B").End(xlUp).Row
.Range("A" & loStart & ":A" & loLetzteZiel) = Date
End With
Application.CutCopyMode = False
End Sub