new code still not working
Sub insertformula()
Range("b4") = Range("A4") * Range("B3")
End Sub