Makroyla farklı sayfalardan toplam aldırmak

[efee2000]

Merhaba arkadaşlar bir konuda yardımcı olursaniz sevinirim.
Ekteki dosyada 3 farkli sayfadan toplam sayfasına makroyla butona tıkladiğimda ilgili yerlere toplamlarin gelmesini istiyorum.
yardımcı olursaniz sevinirim
Teşekkürler

 

[veyselemre]

Sub dene()
    With [Toplam!b4:E18]
        .FormulaR1C1 = "=Sayfa1!RC+Sayfa2!RC+Sayfa3!RC"
        .Value = .Value
    End With
End Sub