Basic Last row query

Hi i need a formula to

Select A1:K1 & Lastrow

    Dim Lastrow As Long
    Lastrow = Cells(Rows.Count, "A").End(xlUp).Row

    Selection.AutoFilter Field:=11, Criteria1:="=A", Operator:=xlOr, _
    Criteria2:="=BJ"
    
    Range("A1:K1" & Lastrow).Select

I have tried the above but it doesnt work it selects a1:k1 but then selects all the cells down to end of the excel document where as the data in cell a ends at row 500 (this can very depending on which sheets i am using).. any help .. ? my vb knowledge is basic but improving


would this work better ? Range("A1").CurrentRegion.Select

Use


Range("A1:K" & Lastrow).Select

thanks for the help once again

    'Academy
    Sheets("CSC").Select
    Range("S1000").Select
    ActiveCell.FormulaR1C1 = "Department"
    Range("S1001").Select
    ActiveCell.FormulaR1C1 = "ACADEMY"
    
    Range("T1000").Select
    ActiveCell.FormulaR1C1 = "CSR CATEGORY"
    Range("T1001").Select
    ActiveCell.FormulaR1C1 = "A"
    Range("T1002").Select
    ActiveCell.FormulaR1C1 = "D"
    
    Range("K1:K300").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    Range("T1000:T1002"), Unique:=False
    
    Range("I1:I300").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
    "U1000:U1007"), Unique:=True

Can i do 2 advanced filters

Ie ADVANCED FILTER filters the data then I want to filter it futher agaoin.

I have the above code but Range("I1:I300").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"U1000:U1007"), Unique:=True always resets the first filter and then displays the results

for example coloum I shows : john , peter , ian, dev , mark
after filter one it shows john , peter only
I need these unique names , but when filter 2 takes place it displays john , peter , ian, dev , mark
instead of john , peter only

I hope this makes sense, I pray there is an easy fix