# Thread: Paste formula in empty cells next to a variable range Thanks:  1 Post #5347680 (1) Likes:  1 Post #5347680 (1)

1. ## Paste formula in empty cells next to a variable range

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.  Reply With Quote

2. ## Re: Paste formula in empty cells next to a variable range

What is the variable range in A & what is the formula?  Reply With Quote

3. ## Re: Paste formula in empty cells next to a variable range Originally Posted by Fluff 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),"""")"  Reply With Quote

4. ## Re: Paste formula in empty cells next to a variable range

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?  Reply With Quote

5. ## Re: Paste formula in empty cells next to a variable range Originally Posted by 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?
-The formula must be inserted in all blank cells in column D down to the last row in Column A, examples:

Example 1
 Colums A Column D P12345 Paste formula here P12344 Existent value P15677 Paste formula here P12456 Paste formula here

Example 2
 Column A Column D P12985 Existent value P12644 Existent value P15932 Paste formula here P12546 Existent value  Reply With Quote

6. ## Re: Paste formula in empty cells next to a variable range

Code:
```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```  Reply With Quote

7. ## Re: Paste formula in empty cells next to a variable range Originally Posted by Fluff Code:
```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.  Reply With Quote

8. ## Re: Paste formula in empty cells next to a variable range

Glad to help & thanks for the feedback  Reply With Quote

## User Tag List

column, formula, paste, range, variable 