جدول ارقام

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