for next

Sub Macro0425()
Dim i As Integer
For i = 2 To 8
Cells(3, i).Value = i * 3
Next i
End Sub