Public Sub test()
    Const endCount As Long = 1029
    Dim arr(), i As Long, rowCounter As Long
    ReDim arr(0 To (4 * endCount) - 1)

    For i = 0 To endCount - 1
        arr(rowCounter) = 4
        arr(rowCounter + 1) = 9
        arr(rowCounter + 2) = 12
        arr(rowCounter + 3) = 15
        rowCounter = rowCounter + 4
    Next i
    ActiveSheet.Cells(2, 1).Resize(UBound(arr) + 1, 1) = Application.WorksheetFunction.Transpose(arr)
End Sub