Option Explicit
Public Sub test()
Const END_ROW As Long = 10
Const END_COLUMN As Long = 6
Dim ialngIndex As Long, ialngCount As Long
Dim lngEnd As Long, lngCount As Long
Dim alngMatrix(END_ROW - 1, END_COLUMN - 1) As Long
For ialngIndex = 1 To END_ROW
lngEnd = lngEnd + END_COLUMN
ialngCount = 0
For lngCount = ialngIndex To lngEnd Step ialngIndex
ialngCount = ialngCount + 1
alngMatrix(ialngIndex - 1, ialngCount - 1) = lngCount
Next
Next
ActiveSheet.Cells(1, 1).Resize(UBound(alngMatrix, 1) + 1, UBound(alngMatrix, 2) + 1) = alngMatrix
End Sub