Finding a last column

[Eurekaonide]

Dear All

I have a formula VBA code to find the last row but how do you find the last cell entered in the columns to the right.

the code I wouls use for the last row is;
LastRow = Range("A" & Rows.Count).End(xlUp).Row

I tried this but thst didnt work;
Lastcolumn = Range("2" & Columns.Count).End(xlLeft).Column

 

[Jonmo1]

So close..

Try

Lastcolumn = Cells(2, Columns.Count).End(xlToLeft).Column

 

[Eurekaonide]

Thank you,
I am then trying to copy a formula across all those cells in that row and have the following but now thats not recognised either

So I have this, the second line is now what is not working.


lastcolumn = Cells(2, Columns.Count).End(xlToLeft).Column
Range("F3").AutoFill Destination:=Range("F3:3" & lastcolumn)

I think it must be the range that is wrong?

 

[MPW]

Will this work?

Range("F3").AutoFill Destination:=Range(Cells(3, 6), Cells(3, lastcolumn))

 

[Eurekaonide]

Fab - thank you both

 

[Jonmo1]

You're welcome..

Just FYI

Range uses column LETTERS
Range("A1")

Cells uses column NUMBER (or letter)
Cells(row#, column# OR letter)
Cells(1,1) same as Range("A1")
Cells(1,"A") same as Range("A1")

Hope that helps.