Use loop to select cells
Sub forDemo() Dim i As Integer For i = 1 To 24 ActiveCell.FormulaR1C1 = i & ":00" ActiveCell.Offset(RowOffset:=1, ColumnOffset:=0).Select Next i End Sub