Creating a loop with a small formula

Maybe:

Sub flunzyaazz()
Dim rcell As Range
For Each rcell In Range("A2:A" & Range("A" & Rows.count).End(3)(1).Row)
    If IsEmpty(rcell) Then
        rcell.offset(, 3).FormulaR1C1 = "=R[-1]C[-1]-RC[-1]"
    End If
Next rcell
End Sub

Thanks Chris for the option but I think that I will go with the one of mister Davis. With a small adjustment, it works perfect:

Sub flunzyaazz()
Dim rcell As Range
For Each rcell In Range("A2:A" & Range("A" & Rows.Count).End(3)(1).Row)
    If IsEmpty(rcell) Then
        rcell.Offset(, 2).FormulaR1C1 = "=R[-1]C[-1]-RC[-1]"
    End If
Next rcell
End Sub

Thanks for all the help : )

Glad it's working for you. If you have a satisfactory solution, please comply with Forum Rule No. 9.


9. Acknowledge the responses you receive, good or bad. If your problem is solved, please say so clearly, and mark your thread as Solved: Click Thread Tools above your first post, select "Mark your thread as Solved". Or click the Edit button on your first post in the thread, Click Go Advanced, select [SOLVED] from the Prefix dropdown, then click Save Changes. If more than two days have elapsed, the Dropdown option or Edit button will not appear -- ask a moderator to mark it.