Multiple range selection using LR

[samahiji]

Hello
The code below showing error when selecting multiple columns when defining the last filtered cell (LR).

Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("A1:P" & LR).SpecialCells(xlCellTypeVisible).Select
ActiveSheet.Range("$A$1:$BZ$" & LR).AutoFilter Field:=72, Criteria1:=Array( _
        "WR"), Operator:= _
        xlFilterValues
ActiveSheet.Range("$A$1:$BZ$" & LR).AutoFilter Field:=53, Criteria1:= _
        "BMB"
    ActiveSheet.Range("$A$1:$BZ$" & LR).AutoFilter Field:=54, Operator:= _
        xlFilterAutomaticFontColor
        
    Range("A1:A & LR, AE1:AF & LR").Select
    Range("A1:A & LR, AE1:AF & LR, AV1:AW & LR").Select
    Range("A1:A & LR, AE1:AF & LR, AV1:AW & LR, BQ1:BT & LR").Select
    Selection.Copy

 

[Joe4]

The important thing to remember when using variables to build ranges is:
- all literal text needs to be between double-quotes
- all variables need to be OUTSIDE of the double-quotes
- you join all the pieces using "&"

You did it fine here:

Range("A1:P" & LR).SpecialCells(xlCellTypeVisible).Select

but not here:

    Range("A1:A & LR, AE1:AF & LR").Select
    Range("A1:A & LR, AE1:AF & LR, AV1:AW & LR").Select
    Range("A1:A & LR, AE1:AF & LR, AV1:AW & LR, BQ1:BT & LR").Select

The first one should look like this:

    Range("A1:A" & lr & ", AE1:AF" & lr).Select

and the rest should follow the same pattern.