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