Clear the contents on for rows 4 through 500 on every fourth column starting with column E

Looking for a quick way using VBA to clear the contents of rows 7-500 for every fourth column from column E to column JY.

E7:E500
I7:I500
M7:M500
{continues...}
JY7:JY500


I could manually enter column in VBA, such as

Sub ClearAllRunningTimes()
'
' ClearAllRunningTimes Macro
'
Range("E7:E500").Select
Selection.ClearContents

Range("I7:I500").Select
Selection.ClearContents

Range("M7:M500").Select
Selection.ClearContents

etc...

End Sub

But there has to be an easier way. Thanks!
Brian

Try this:

Sub Macro3()

Dim ColNum As Long
    
For ColNum = 1 To 281
    If ((ColNum + 4) Mod 4) = 0 Then
        Range(Cells(7, ColNum + 4), Cells(500, ColNum + 4)).ClearContents
    End If
Next ColNum

End Sub

Wait, I just realized you started by clearing Col E first. Let me revise this.

Actually, its a simple change. Just replace:

If ((ColNum + 4) Mod 4) = 0

with

If ((ColNum + 4) Mod 4) = 1