Using Range & Rowscount

[DataBlake]

 Dim lastRow As Long
 destrow = Sheets("Master Wheel").Range("A" & Rows.Count).End(xlUp).Row
 
    Columns("T:T").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

    Range("T2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ISERROR(VLOOKUP(RC[-19],'Master Wheel'!R1:R1048576,1,FALSE)),""err"",""delete"")"
    lastRow = Range("A" & Rows.Count).End(xlUp).Row
    Range("T2").AutoFill Destination:=Range("T2:T" & lastRow)
    
    Columns("T:T").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Cells.Select

    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("WheelPros").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("WheelPros").Sort.SortFields.Add Key:=Range( _
        "T2:T" & lastRow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("WheelPros").Sort
        .SetRange Range("A1:XF1000000")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    Columns("T:T").Select
    Selection.Find(What:="err", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        
    ActiveCell.EntireRow.Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Master Wheel").Select
    Range("A" & destrow).Select
    ActiveSheet.Paste

Hey so i have this code that i'm trying to make work.
Everything is fine unless there is only 1 item in column T
for that reason i'm trying to figure out how i can get the range from the activecell "err" (row)
to the bottom of rows.count

Range(selection, Rows.Count)).select

gives me an error

any help would be appreciated

 

[Joe4]

You are welcome.

Yes, there are multiple ways to do it. Just note that the syntax is a little different.
When in doubt, you can turn on the Macro Recorder, record yourself selecting the multi-row ranage, and see what that recorded code looks like.
Then, just build that reference in VBA.

 

[DataBlake]

You are welcome.

Yes, there are multiple ways to do it. Just note that the syntax is a little different.
When in doubt, you can turn on the Macro Recorder, record yourself selecting the multi-row ranage, and see what that recorded code looks like.
Then, just build that reference in VBA.

attempted that but selecting the range in macro recorder just gave me the specific range & not the lastrow:currentrow range
it makes perfect sense now that i know i can combine things with quotations like that

 

[Joe4]

Right, those are just variables. Basically, you use the Macro Recorder to record an example of the reference you are trying to build.
Then, you build it by combining variables with literal text values.
Just remember that all literal text values need to be enclosed in double-quotes, and variables CANNOT be enclosed in double-quotes, and you can combine all the pieces using ampersands (&).