How to find the last column which is not empty

[moramramesh]

I have the below code:

Range("A:A,B:B,C:C,D:D,E:E,F:F,G:G,H:H,I:I").Select
Range("I1").Activate
ActiveSheet.Shapes.AddChart2(227, xlLine).Select
ActiveChart.SetSourceData Source:=Range("Sheet2!$A1:$I$" & lr2)


Since I know that data is available from columns A to I, I have passed all the columns in the range function. But I would like to pass range value dynamically based on the last column containing data.
Accordingly in the 2nd line, I want pass the last column first cell instead of Range("I1").Activate
Similarly in the 4th line, I want to pass dynamic column value in place of I, instead of Range("Sheet2!$A1:$I$" & lr2)

 

[Joe4]

Range(ColumnLetter).Activate

You only have the column reference, no row reference.
If you want to select the whole column, use:

Columns(ColumnLetter).Activate

 

[Rick Rothstein]

You only have the column reference, no row reference.
If you want to select the whole column, use:

Columns(ColumnLetter).Activate

Besides the above comment by Joe, you will have one more correction to make in case you missed it. You may have caught it after having read Joe's response in Message #9 , but I can't be sure so I figured I would mention it just in case. On this line of code...

Range("A:ColumnLetter").Select

You need to write it like this...

Range("A:" & ColumnLetter).Select

again, for the reason Joe explained in Message #9 .

 

[moramramesh]

It was my mistake, I was doing wrong concatenation earlier. Now I corrected it and completed my task: Range(ColumnLetter & "1").Activate
Thanks Rick, Joe and everyone for your help and suggestions. This site is awesome and very much helpful for novice users like me.

 

[Joe4]

You are welcome.
Glad we were able to help.