Segue a resposta do Teste anterior.
Há uma quantidade infindável de soluções possíveis. Fiz o mais simples possível, com ranges fixos.
Coloquei a resposta do Maurício Cota junto no arquivo aqui.
Sub respostaVBA()
Dim i As Integer
Dim soma As Double
For i = 2 To 200 ‘Percorre a linha 2 até a linha 200
soma = soma + Range(“a” & i) * Range(“b” & i)
‘Faz o produto da coluna A e coluna B e armazena na variável soma
Next i
‘Escreve a resposta na célula e1
Range(“e1”) = soma
End Sub
Ideias técnicas com uma pitada de filosofia: https://ideiasesquecidas.com
Ferramentas Excel-VBA: https://ferramentasexcelvba.wordpress.com/