How to select Range in Mutiple Column to Last Row

[tuongtu3]

Hello All,
I'm trying to select the below code but it didn't work. Please help

Dim LRR1 As Long
    LRR1 = Cells(Rows.Count, 2).End(xlUp).Row
Range("K18:O" & LRR1, "Q18:T" & LRR1, "Z18:Z" & LRR1, "AC18:AC" & LRR1, "AF18:AF" & LRR1, "AI18:AI" & LRR1, "AL18:AL" & LRR1).Select

Regards,
tt3

[Trebor76]

Hi tt3 (again )

Try this:

Range("K18:O" & LRR1 & ", Q18:T" & LRR1 & ",Z18:Z" & LRR1 & ",AC18:AC" & LRR1 & ",AF18:AF" & LRR1 & ",AI18:AI" & LRR1 & ",AL18:AL" & LRR1).Select

Regards,

Robert

[Norie]

This should do it.

Dim LRR1 As Long
    LRR1 = Cells(Rows.Count, 2).End(xlUp).Row
    Range("K18:O" & LRR1 & ", Q18:T" & LRR1 & " , Z18:Z" & LRR1 & " , AC18:AC" & LRR1 & " , AF18:AF" & LRR1 & " , AI18:AI" & LRR1 & " , AL18:AL" & LRR1).Select

[tuongtu3]

@Robert & Norie,
Both codes are working great. Thank you very much for your time and help.

Regards,
tt3