Paste formula in empty cells next to a variable range

[davidmg1982]

Im looking for a vba solution to paste a formula on the empty cells in Column D next to a variable range in column A, any help will be very appreciated.

 

[Fluff]

What is the variable range in A & what is the formula?

 

[davidmg1982]

What is the variable range in A & what is the formula?

Thanks Fluff, i might have used the wrong words, by variable range I meant total rows in column A will be changing every day.

The formula is:
"=IFERROR(HLOOKUP(RC[-3],DataForm!R3C3:R12C3,9,0),"""")"

 

[Fluff]

Ok, do you want that formula in all col D down to the last row in col A, or just from the last used cell in D down to the last cell in col A, or something else?

 

[davidmg1982]

Ok, do you want that formula in all col D down to the last row in col A, or just from the last used cell in D down to the last cell in col A, or something else?

-The formula must be inserted in all blank cells in column D down to the last row in Column A, examples:

Example 1
[TABLE="width: 500"]
<tbody>[TR]
[TD]Colums A[/TD]
[TD]Column D[/TD]
[/TR]
[TR]
[TD]P12345[/TD]
[TD]Paste formula here[/TD]
[/TR]
[TR]
[TD]P12344[/TD]
[TD]Existent value[/TD]
[/TR]
[TR]
[TD]P15677[/TD]
[TD]Paste formula here[/TD]
[/TR]
[TR]
[TD]P12456[/TD]
[TD]Paste formula here[/TD]
[/TR]
</tbody>[/TABLE]

Example 2
[TABLE="width: 500"]
<tbody>[TR]
[TD]Column A[/TD]
[TD]Column D[/TD]
[/TR]
[TR]
[TD]P12985[/TD]
[TD]Existent value[/TD]
[/TR]
[TR]
[TD]P12644[/TD]
[TD]Existent value[/TD]
[/TR]
[TR]
[TD]P15932[/TD]
[TD]Paste formula here[/TD]
[/TR]
[TR]
[TD]P12546[/TD]
[TD]Existent value[/TD]
[/TR]
</tbody>[/TABLE]

 

[Fluff]

Ok, how about

Sub davidmg()
   With Range("D1:D" & Range("A" & Rows.Count).End(xlUp).Row)
      .SpecialCells(xlBlanks).FormulaR1C1 = "=IFERROR(HLOOKUP(RC[-3],pcode!R3C3:R12C3,9,0),"""")"
   End With
End Sub

 

[davidmg1982]

Ok, how about

Sub davidmg()
   With Range("D1:D" & Range("A" & Rows.Count).End(xlUp).Row)
      .SpecialCells(xlBlanks).FormulaR1C1 = "=IFERROR(HLOOKUP(RC[-3],pcode!R3C3:R12C3,9,0),"""")"
   End With
End Sub

Exactly what I need it, thank you for your time.

 

[Fluff]

Glad to help & thanks for the feedback