Pq nao usar formula???

Disponibilize um arquivo modelo

Boa tarde Payzzanno

Experimente usar Fórmula local:

[B2].FormulaLocal = "=SOMASE(Plan2!A:A;A2;Plan2!B:B)"

[]s

Baseado em um tópico anterior e faendo alguns ajustes podemos utilizar assim :

Sub AutoFill_Formula()

    Dim Ultimalinha As Long
    
    Ultimalinha = Range("A" & Rows.Count).End(xlUp).Row
    
    [B2].FormulaLocal = "=SOMASE(Plan2!A:A;A2;Plan2!B:B)"
    
    'Preenche as demais celulas com a formula
    Range("B2").AutoFill Destination:=Range("B2:" & "B" & Ultimalinha)
   
    'Se quer somente as formulas desabilite as linhas abaixo
    'Copia e cola somente os valores
    Range("B2:" & "B" & Ultimalinha).Copy
    'Se for para copiar e colar na mesma coluna, só altere as letras
    'Cola só os valores na coluna C
    ActiveSheet.Range("B2:" & "B" & Ultimalinha).PasteSpecial xlPasteValues

    Application.CutCopyMode = False

End Sub

Na rotina com a dica do Patropi, inserimos a formula em B2, preenchemos as demais e depois copiamos e colamos somente os valores, e se a intenção for ter somente as formulas nas celulas desabilite as linhas conforme indicado na rotina.

[]s