Eu não havia entendido a sua planilha. Vamos à segunda tentativa.
Tecle Alt+F11 e cole o código abaixo na aba Relatório.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Or Target.Address = "$B$2" Then
Range("B4").FormulaLocal = "=SOMA('" & [A2] & ":" & [B2] & "'!B4)"
Range("B5").FormulaLocal = "=SOMA('" & [A2] & ":" & [B2] & "'!B5)"
Range("B6").FormulaLocal = "=SOMA('" & [A2] & ":" & [B2] & "'!B6)"
Range("B7").FormulaLocal = "=SOMA('" & [A2] & ":" & [B2] & "'!B7)"
End If
End Sub
Não se esqueça de marcar o tópico como resolvido se a resposta for satisfatória.
Postado : 22/11/2015 7:02 am