Mine

Private Sub zapich()
    Dim riadky
    Dim sloupce
    Dim i
    Dim j
    Dim krok
    
    riadky = Cells(1, 2).Value
    sloupce = Cells(2, 2).Value
    krok = 1
    
    For i = 1 To riadky
        For j = 1 To sloupce
            Cells(i + 3, j + 1).Value = krok
            krok = krok + 1
        Next j
    Next i
   
End Sub