Sub SumarCeldas()

    Dim valor1 As Double

    Dim valor2 As Double

    Dim resultado As Double 

' Obtener el valor de la primera celda

 valor1 = CDbl(Range("A1").Value)

      ' Obtener el valor de la segunda celda

    valor2 = CDbl(Range("B1").Value)

        ' Sumar los dos valores

    resultado = valor1 + valor2

        ' Colocar el resultado en la tercera celda

    Range("C1").Value = resultado

End Sub

Private Sub cmdsuma_Click()

SumarCeldas

End Sub