Merhaba.
İlgili kodu alttaki ile değiştiriniz.Sadece kodunuzdaki
yeri değiştirdim.

Sub alttoplamlar()

Dim sh As Worksheet, satýr As Long, sutun As Long, _

    toplam As Double, alan As Range, toplamsatýrý As Long



Set sh = Sheets("Paylaþým")



satýr = sh.ListObjects("Tablo81731").Range.Columns(1).Cells.Find("*", SearchOrder:=xlByRows, LookIn:=xlValues, SearchDirection:=xlPrevious).Row

toplamsatýrý = satýr + 1

sutun = 6

For d = 4 To 5 '(d, e sütunlarý)

    Set alan = sh.Range(sh.Cells(9, d), sh.Cells(satýr, d))

    toplam = CDbl(WorksheetFunction.Sum(alan))

    sh.Cells(toplamsatýrý, d).Value = toplam

Next d

MsgBox "Ýþlem tamamlandý", vbInformation, "antonio"

End Sub