löschen von zeilen

Kann ma jmd. drüberschaun und "vielleicht" verbessern?

Sub loeschen()

Dim i As Integer, x As Integer, y As Integer

'Blatt "Zeitplan" auswählen
Sheets("Zeitplan").Select

'Auslesen der letzten Zeile
y = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

'Abgleich des Datums
For i = 2 To y Step 1
    
    If Range("D" & i) <> "" Then
    
        'Wenn Datum kleiner als aktueller Monat
        If Range("D" & i) < Range("H1") Then
                    
                'markiert die aktuelle zeile
                Selection.EntireRow.Select
    
                'löscht die markierte zeile
                Selection.Delete Shift:=xlUp
                          
        End If
    End If
Next
    
End Sub