¿Cómo puedo hacer la función suma producto con macros?

Intente hacer la función producto no he podido, me sale valor o siempre me da 0

Y también intente ponerle una fórmula a una celda y tampoco pude

¿Cuáles son mi errores?

Sub prueba()

Dim celdaini As String
Dim celdafin As String
Dim celdai As String
Dim celdaf As String
Dim rango As Range

Range("B3").Select
celdaini = ActiveCell.Address
celdafin = Range("B3").End(xlToRight).Column
celdafin = ActiveCell.Offset(0, celdafin - 2).Address
celdai = Range([celdaini]).Offset(1, 0).Address
celdaf = Range([celdafin]).Offset(1, 0).Address
Set rango = Range([celdai], [celdaf])
Range("A3").Formula = "SUMAPRODUCTO([celdaini]:[celdafin],[celdai]:[celdaf])"
End Sub

Function SP(rango As Range, rango2 As Range) As Double
Dim celda As Range
Dim resultado As Double
Dim resultado2 As Double
Dim celda2 As Range

For Each celda In celda.Cells
resultado = Application.WorksheetFunction.SumProduct(resultado, celda.Value)
Next celda

For Each celda2 In celda2.Cells
resultado2 = Application.WorksheetFunction.SumProduct(resultado2, celda2.Value)
Next celda2

SP = resultado + resultado2
End Function