i want my macro to color not every cell but make gap between colored in size of i (cells)

Any idea. I thought to change for loop insted of for each use something else but i dont think its possible

[VBA]

Sub dfghdfgh()
Dim i As Integer
Dim area, cell As Range
Dim j As
Integer





i = InputBox("Give the value of i")
Set area =
Application.InputBox("Select range", "Range", , , , , , 8)


For Each cell In area


area.Interior.Color = RGB(200, 160, 35)

Next cell


End Sub
[/VBA]