Láttam, hogy nem vagy itt, de végül előbb kerültél elő, mint a kérdést feltevő Xooo.

Azért, hogy ne legyen túl egyforma a két makró:

Sub Nullazas()
    For i = 1 To 100 Step 4
        For j = 1 To 3
            Cells(i, 1).Offset(j) = 0
        Next j
    Next i
End Sub

Ugyanannyi sor. :)