Formula until last column

[VbaHell]

Can anyone pick up my error here please

I want to add a formula in cell "D3" and along this row until the last column populated starting in "C3"


Dim LC As Integer

[LC = Cells(3, Columns.Count).End(x1ToLeft).Column

With Range ("D3" & LC)
.FormulaR1C1 = "=COUNTIF(export!C1,R[-1]C,export!C3,RC3)"
.Value = .Value
End With]

 

[kvsrinivasamurthy]

Changethis line

With Range ("D3" & LC)

as

With Range(Range ("D3"),Range("D3").offset(0, LC-3))

 

[VbaHell]

works great, thanks for your help

 

[Rick Rothstein]

LC = Cells(3, Columns.Count).End(x1ToLeft).Column

I am not sure what you have in your actual code (you indicated the code is now working), but I would point out that you typed the number 1 above when it should be a lower case L instead.