اذا كان عندتا مجموعة من الارقام من واحد الى N ) N من اختيارك ) و يجب توزيع هذه الأرقام على جدول من M عامود ( M من اختيارك ابضاً)
Option Explicit
Sub CreateNumbers(rg As String, col_num As Long, max_num As Long)
Dim n As Long
Dim My_row As Long
Dim My_col As Long
ActiveSheet.Cells(6, 1).CurrentRegion.Clear
For n = 0 To max_num - 1
My_row = n \ col_num
My_col = n Mod col_num
ActiveSheet.Range(rg).Offset(My_row, My_col) = n + 1
Next n
End Sub
'==============================================
Sub give_numbers()
Call CreateNumbers(Cells(6, 1).Address, [b2], [c2])
End Sub