Sub test()
Dim c As Range
With Worksheets("ewiger Durchlaufplan")
For Each c In .Range("D3:D65536")
If c < 0 Then
c.EntireRow.Copy _
Destination:=Worksheets("ewige Verspätungsliste"). _
Cells(65536, 1).End(xlUp).Offset(1, 0)
End If
Next c
End With
End Sub