Duda Con Respecto a Codigo en Excel-visual

saludos a esta gran comunidad de compartir-tecnologias
He tenido problemas para hacer funcionar este codigo pues el resultado de la suma me aparece en la culumna (A) y mi objetivo es que al seleccionar varios valores de una columna sean sumados y que se muestren al final de ella. pues mi objetivo es hacer varios degloces de cuentas y que sean sumados uno por uno.

Private Sub CommandButton1_Click()
Dim UltimaFila As Long
Dim cell As Range
Dim sum As Integer
'Dim cant As Integer
'Dim prom As Variant
Worksheets("Hoja1").Activate
For Each cell In ActiveCell.CurrentRegion.Cells
sum = sum + cell.Value
Next
Cells(Range("B1").End(xlToRight).Row + 1, 1) = sum

End Sub

de antemano gracias.