Sumar números introducidos por user form en una celda

Introduscos números en la celda A por medio de un user form pero la fórmula de excel =SUMA(A9:A700) no recocé los datos introduciodos de esta menera y el siguiente código tampoco

Private Sub Worksheet_Activate()       ' tampoco funciona el evento calculate o el evento change 
A1sum = Range("C9:C700")
resultado = Application.WorksheetFunction.Sum(A1sum)    ' este codigo va en la hoja que uso 
Range("E5") = resultado
End Sub

'''''''yo envío los datos ala celda"A"mediante user form

Pero el dato de la celda E5 no se actualiza confrome introduzco números

Entonces como sumo todos los valores introducidos por user form en la fila A