Sub Müllern()
Const C_Frst As Long = 17
Const C_Step As Long = 13
Const C_Offs As Long = 8
Dim lngLst As Long
Dim rngR As Range
With ActiveSheet
lngLst = .Cells.Find("*", .Cells(1), -4123, 2, 1, 2, False).Row
Set rngR = .Range(.Cells(C_Frst, 1), .Cells(C_Frst, 1).Offset(C_Offs))
Do
With rngR
With .Areas(.Areas.Count)
If .Rows(.Rows.Count).Row > lngLst Then
Exit Do
Else
Set rngR = Union(rngR, rngR.Offset(C_Step + C_Offs))
End If
End With
End With
Loop
rngR.EntireRow.Delete
End With
End Sub