Application.ScreenUpdating = False
Dim i As Long
With Sheets("Lieferung_TLB")
For i = .Range("AF65536").End(xlUp).Row To 2 Step -1
If .Range("AF" & i).Value < .Range("AG1").Value + 1 And .Range("AF" & i).Value > .Range("AH1").Value Then
.Rows(i).Delete
End If
Next i
End With
Application.ScreenUpdating = True