Sizin kod yerine alttaki gibi deneyiniz.
ve
ve
burayı Tr karakterden dolayı düzeltiniz.

Sub alttoplamlar()

    With Sheets("Paylaþým").ListObjects("Tablo81731")

        .ShowTotals = True

        .ListColumns("Alacak Tutarý").TotalsCalculation = xlTotalsCalculationSum

        .ListColumns("Paylaþým tutarý").TotalsCalculation = xlTotalsCalculationSum

    End With

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

End Sub