wegDamit funzt nicht so ganz...

Sub WegDamit()
Dim letzteZeile
Dim WS As String
For i = 1 To 5
If i = 1 Then WS = "ausgeschiedene"
If i = 2 Then WS = "Kündigung"
If i = 3 Then WS = "Verstorben"
If i = 4 Then WS = "Übertragung"
If i = 5 Then WS = "neue"
MsgBox "" & WS
letzteZeile = Worksheets(WS).Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile
Worksheets(WS).Range(Rows(2), Rows(letzteZeile)).Delete
Next i
End Sub