it makes one row now and one column
How to make it work for whole selected rectangle
[vba]Sub fsdfgs()

Dim i As Long
Dim area As Range
Dim j As Long
Dim k As Long

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

For j = 1 To area.Rows.Count Step i
area.Cells(j, 1).Interior.Color = RGB(200, 160, 35)
Next j
For k = 1 To area.Rows.Count Step i
area.Cells(1, k).Interior.Color = RGB(200, 160, 35)
Next k
End Sub[/vba]