Zeilen per Makro löschen

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A41") = "" And Range("B41") = "" Then
Rows("45:90").Select
Selection.Delete Schift:=xlUp
End If
Kommt aber immer die Fehlermaldung: Kann nicht ausgeführte werden.
Weiss jemand warum ?
Danke mal
Tom
End Sub