Aktar ve aktarılan rakamı üst üste topla

[sirkülasyon]

Sub Aktar()
makrosu ile R3:R71 sütununu AE3:AE71 sütununa aktaracak
Aynı zamanda da AE3:AE71 sütununda da üst üste de toplama yapacak.
Bu konuda yardımcı olabilir misiniz

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Sub Aktar()
    Range("R3:R71").Copy
    Range("AE3").PasteSpecial xlPasteAll, xlAdd
    Application.CutCopyMode = False
End Sub

 

[sirkülasyon]

Sayın dEdE Ellerine Sağlık
Teşekkür ederim abime