Sub formularizer()
For Each r In Intersect(ActiveSheet.UsedRange, Range("A:A"))
If IsEmpty(r) Then
Else
n = r.Row
r.Offset(0, 3).Formula = "=B" & n & "+C" & n
End If
Next
End Sub

--
Gary''s Student - gsnu200909