preenche_colunas_excel

Sub Macro_PreencheColunaA()
    Dim quantidade As Integer
    Dim asque As Integer
    asque = 65
    Dim cela As Integer
    cela = 14
    quantidade = cela + 9
    Dim coluna As Integer
    coluna = 4
    Dim valorCelula As String
    valorCelula = "4"
    
    Do While cela <= quantidade
        Dim temp As String
        temp = Strings.Chr(asque)
        Cells(cela, coluna) = "=Plan1!" & temp & valorCelula
        cela = cela + 1
        asque = asque + 1
    Loop
End Sub

Sub Macro_PreencheColunaD()
    Dim quantidade As Integer
    Dim asque As Integer
    asque = 77
    Dim cela As Integer
    cela = 14
    quantidade = cela + 9
    Dim coluna As Integer
    coluna = 5
    Dim valorCelula As String
    valorCelula = "4"
    
    Do While cela <= quantidade
        Dim temp As String
        temp = Strings.Chr(asque)
        Cells(cela, coluna) = "=Plan1!" & temp & valorCelula
        cela = cela + 1
        asque = asque + 1
    Loop
End Sub

Macro para preenchimento de valores no excel