Sum after last row once data is pasted

for example you has paste to columns(1) then
try this

Sub test()
MsgBox Application.Sum(Columns(1).SpecialCells(2, 1))
End Sub