Multiplication dans macro

Bonjour à tous,
je voudrais savoir comment insérer une formule de calcul (B&*B2)
je joins la formule pour exemple.
Merci pour votre aide

Sub saisieNombre()

Dim prix As Integer, marge As Single, prixvente As Single
On Error Resume Next

testprix:
Range("b1").Select
ActiveCell.FormulaR1C1 = Application.InputBox("prix :", "infos", "", valdéf1, Type:=1)
On Error GoTo testprix

testmarge:
Range("b2").Select
ActiveCell.FormulaR1C1 = Application.InputBox("marge :", "infos", "", valdéf2, Type:=1)
On Error GoTo testmarge

prixvente:
Range("b3").Select
ActiveCell.Calculate = ("prix" * "marge")
End Sub