Clearing cells in a pattern

[methody]

Hello there
I make entries on a large worksheet in the course of a year. At the end of the year I would like an automated way of clearing the information from the cells so that I can start again.

Data is entered in F10 and G10, then F11 and G11, then F12 and G12

The next entries are in F18 and G18, then F19 and G19, then F20 and G20

The next enteries are in F26 and G26, then F27 and G27, then F28 and G28

So there is a gap of 5 cells each time.
The trouble is that there are formulas in these cells so I can't just highlight the whole range and clear the cells and the entries continue until around F5000.

I can create a macro using the recorder which highlights each section individually and clears the contents bit its is a long and clumsy piece of code. Given that there is a pattern is there any way of automating it more cleanly? Thanks

 

[VoG]

Try like this

Sub clr()
Dim i As Long
For i = 10 To 26 Step 8
    Range("F" & i).Resize(3, 2).ClearContents
Next i
End Sub

 

[methody]

that's perfect
thank you

 

[methody]

Sorry VoG
In order to speed it up would it be possible to build into it the idea that if the top left cell was empty eg F10, go to next i without the clearing.

Perhaps this would not make any difference.

 

[VoG]

This should speed it up

Sub clr()
Dim i As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = 10 To 26 Step 8
    If Range("F" & i).Value <> "" Then Range("F" & i).Resize(3, 2).ClearContents
Next i
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

 

[methody]

thanks again