Bir sayfadaki iki veriyi birleştirerek diğer sayfaya alma

[Hacı Bayram ÖZKAN]

Merhabalar; 17. mesajıma şu kodu buldum ama çalıştıramadım, bakarmısınız? Teşekkürler.

Sub ETOPLA()
Dim s1 As Worksheet: Dim i As Integer
Set s1 = Sheets("BORDRO")
Set wf = WorksheetFunction
Sonsatır = s1.Cells(s1.Rows.Count, "D").End(3).Row

For i = 7 To son '140 ve 120 için
s1.Range("D" & Sonsatır + 2) = wf.SumIf(s1.Range("E7:E" & Sonsatır), s1.Range("E" & i), s1.Range("D7" & Sonsatır))
Next i
End Sub