Sub kuku()
   Dim A, B As Integer

   A = Range("a7").Value
   B = Range("c7").Value

   Range("E7").Select
   For i = 1 To A
      ActiveCell.Offset(0, 0).Value = i
      ActiveCell.Offset(1, 0).Select
   Next i
   
   
   Range("F6").Select
   For i = 1 To B
      ActiveCell.Offset(0, 0).Value = i
      ActiveCell.Offset(0, 1).Select
   Next i

   Range("F7").Select
   For i = 1 To A
      For j = 1 To B
         ActiveCell.Offset(0, j - 1).Value = i * j
      Next j
      ActiveCell.Offset(1, 0).Select
   Next i

End Sub