select last column

[lecet444]

LR = Range("B" & Rows.Count).End(xlUp).Row
LC = Range(4, Columns.Count).End(xlToleft).Column

LC doesnt work what am i doing wrong, i have LR works fine...

 

[VoG]

Try

LC = Cells(4, Columns.Count).End(xlToLeft).Column

 

[JamesW]

Hi,

Range won't accept 4 so you need to use Cells:

Cells(4, Columns.Count).End(xlToLeft).Column

 

[njimack]

LC = Cells(4, Columns.Count).End(xlToleft).Column

 

[lecet444]

THANK YOU worked perfectly

 

[taurean]

Or if you are interested in using Range then:

LC = Range("XFD4").End(xlToLeft).Column

 

[lecet444]

Sheets("sheet1").Range("A13").Value = Sheets("sheet1").Range(LC & "3").Value

when i put here...it says object defined error

 

[taurean]

Range object wouldn't work like that. Here you will have to use Cells object as shown by njimack like:

Sheets("sheet1").Range("A13").Value = Sheets("sheet1").Cells(3, LC).Value

 

[lecet444]

much appreciated thx for all the help