Sub test() Cells(1, 1).Value = "EXCEL VBA" For i = 1 To 5 Cells(i, 1).Value = "EXCEL VBA" Next End Sub