Sub TotalValue()
    Dim strcells, strsum As String
    Dim Splitval As Variant
    Dim intIndex, totalval As Integer
    Dim cellvalue, strsplit As String
    
strcells = InputBox("Enter the cells you want to be added, enter with spaces like: c1 c2 c10")

strsum = InputBox("Enter the cell where you want to display the total value, enter like: F1")



    Splitval = Split(strcells, " ")
    For intIndex = LBound(Splitval) To UBound(Splitval)
         
       strsplit = Splitval(intIndex)
       cellvalue = Range(strsplit).Value
       totalval = cellvalue + totalval
       Range(strsum).Value = totalval
       
    Next
End Sub