Makro nacht Problemme

in einem Arbeitsblatt mit mehreren Tabellen, versuche ich
in einer der Tabellen die Summe der letzten Zeile zu berechnen.
Das nachfolgende Makro markiert die letzte Zeile, so weit so gut.
Die Summe wird aber von der ganzen Tabelle berechnet und nicht der
letzten Zeile. Warum?

Sub sum_letzte_Zeile()
Dim Bereich As Range
Dim neuBereich As Range
sum = 0
Set Bereich = ActiveCell.CurrentRegion
Bereich.Cells(Bereich.Cells.Count).Select 'letzte Zelle im Bereich
Bereich.Rows(Bereich.Rows.Count).Select 'letzte Zeile markieren
Set neuBereich = Selection
For Each neuBereich In Selection
Cells(20, 3) = Application.sum(Selection)
Next neuBereich
End Sub

Hat jemand eine Idee?

Vielen Dank.

Grüße