Exercicio - Valores incrementais

Olá! Ao incluir o valor incremental no código, a intenção era que realizasse o código na coluna do lado , mas ele segue na linha de baixo.

Sub Tabuada_While()
    Dim num As Byte
    Dim mult As Byte

    num = 1
    multi = 1

        Range("a1").Select
        Do While num <= 10
            ActiveCell = multi & " x " & num & "= " & multi * num
            num = num + 1
            ActiveCell.Offset(1, 0).Select
        Loop

        multi = multi + 1
      Range(ActiveCell.End(xlUp), 1).Select

        num = 1

        Do While mult <= 2 And num <= 10

            ActiveCell = multi & " x " & num & "= " & multi * num
            num = num + 1
            ActiveCell.Offset(1, 0).Select
        Loop



End Sub

Poderia me ajudar o que há de errado,