Yes. Here we check A2 to make sure it has not formula:

Sub save_formula()
Set a1 = Range("A1")
Set a2 = Range("A2")
If a2.HasFormula Then
Else
a2.Value = a1.Value
End If
End Sub

--
Gary''s Student - gsnu200784


" wrote:

Is there a way in VBA to set a cell equal to another cell only if the
destination cell does not contain a formula (has a value)?

Thanks

Adam Bush