Macro to count rows and repeat formula across

[somesoldiers]

Hi Guys</SPAN>

How to I change the below so that the formula will be repeated row count times across rather than down?</SPAN>
So my row count is 19, I want to copy the formula from H4 to AA4 rather than from H4 down to H23</SPAN>

Thanks</SPAN>

Noel</SPAN>

LR = Sheets("Balance Sheet - AM").Cells(Rows.Count, "A").End(xlUp).Row</SPAN>

Range("H4:H" & LR).FormulaR1C1 = _</SPAN>
"=IF(ISERROR(VLOOKUP(C[-7],MAP!C[-4]:C[-3],2,0)),""N"",(VLOOKUP(C[-7],MAP!C[-4]:C[-3],2,0)))"</SPAN>

 

[andrewkard]

Hello, maybe so:
Range("H4:AA" & LR).FormulaR1C1 =

 

[Rick Rothstein]

Give this a try...

LR = Sheets("Balance Sheet - AM").Cells(4, Columns.Count).End(xlToLeft).Column
 

Range("H4").Resize(, LR - 7).FormulaR1C1 = _
 "=IF(ISERROR(VLOOKUP(C[-7],MAP!C[-4]:C[-3],2,0)),""N"",(VLOOKUP(C[-7],MAP!C[-4]:C[-3],2,0)))"

 

[somesoldiers]

Give this a try...

LR = Sheets("Balance Sheet - AM").Cells(4, Columns.Count).End(xlToLeft).Column
 

Range("H4").Resize(, LR - 7).FormulaR1C1 = _
 "=IF(ISERROR(VLOOKUP(C[-7],MAP!C[-4]:C[-3],2,0)),""N"",(VLOOKUP(C[-7],MAP!C[-4]:C[-3],2,0)))"

Thanks Rick- I want to count the number of Rows on the Balance Sheet tab in column D. I think your formula is changing this to count the columns?

 

[somesoldiers]

Range("H4").Resize(, LR - 1).FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(C[-7],MAP!C[-4]:C[-3],2,0)),""N"",(VLOOKUP(C[-7],MAP!C[-4]:C[-3],2,0)))"

Think I'm there, kept my first line and changed your second to LR - 1- seems to have worked, will check back if I have any more problems- thanks guys