XL 2013 fonction somme négatif ou multiplication par ligne

Bonjour, je voudrais utiliser un code pour le somme mais le passer en multiplier ou - g-h=o et g*h=0
Sub somme()

'avec la feuil 1
With Sheets("K2")
'Je recherche de la première ligne de la colonne B jusque la dernière ligne pleine
For i = 1 To .Range("B65356").End(xlUp).Row
'j'indique qu'elle est la plage à calculer
Set Plage = .Range("G" & i & ":H" & i)
'j'indique que pour cette plage j'utilise la fonction somme
résultat = Application.WorksheetFunction.SumProduct(Plage)
'j'affiche le résultat dans la colonne F à la ligne qui correspond
.Range("O" & i) = résultat
Next i
End With
End Sub

merci d'avance .