to semplify
Public Sub sumcells()
    Dim c As Range,  s
    For Each c In Selection ' selection is the range of selected cells
         s = s + c.Value ' sum all cells value in selection
         arow = c.Row ' save row
    Next
    Range("X" & arow).Value = s ' display sum
    Set c = Nothing
End Sub