Hallo,
ich würde es ja nur bis zur letzten gefüllten Zelle in Spalte A machen.
Option Explicit
Sub Nick()
Dim LoI As Long
Application.ScreenUpdating = False
For LoI = 1 To Rows.Count Step 40
Range(Cells(LoI, 1), Cells(LoI + 19, 1)).ClearContents
Next LoI
Application.ScreenUpdating = True
End Sub
Gruß Hajo