Macro para preenchimento automático em células no excel

Excel - Macro

Private Sub CommandButton1_Click()
    
    Dim asque As Integer
        asque = 65
    Dim cela As Integer
        cela = ActiveCell.Row
    Dim quantidade As Integer
        quantidade = cela + Cells(1, 9) - 1
    Dim coluna As Integer
        coluna = 4
    Dim valorLinha As String
        valorLinha = Cells(1, 7)
    
    'MsgBox asque
    'MsgBox cela
    'MsgBox quantidade
    'MsgBox coluna
    'MsgBox valorLinha

    Do While cela <= quantidade
        Dim temp As String
        temp = Strings.Chr(asque)
        'MsgBox temp
        Cells(cela, coluna) = "=Plan1!" & temp & valorLinha
        cela = cela + 1
        asque = asque + 1
    Loop

End Sub

Private Sub CommandButton2_Click()
    Dim quantidade As Integer
    Dim asque As Integer
    asque = 78
    Dim cela As Integer
    cela = ActiveCell.Row
    quantidade = cela + Cells(1, 9) - 1
    Dim coluna As Integer
    coluna = 5
    Dim valorLinha As String
    valorLinha = Cells(1, 7)
    
    'MsgBox asque
    'MsgBox cela
    'MsgBox quantidade
    'MsgBox coluna
    'MsgBox valorLinha
    
    Do While cela <= quantidade
        Dim temp As String
        temp = Strings.Chr(asque)
        'MsgBox temp
        Cells(cela, coluna) = "=Plan1!" & temp & valorLinha
        cela = cela + 1
        asque = asque + 1
    Loop

End Sub