change range of data

[Dummy Excel]

hi everyone,
ive recorded a simple macro and it works great although it has hardcoded the range of data ("D2:D1321")
how can i change this so its dynamic to different numbers of rows?

Sub Inventory_Report()
'
' Inventory_Report Macro
'

'
    Columns("A:B").EntireColumn.Hidden = True
    Columns("F:F").EntireColumn.Hidden = True
    Columns("K:L").EntireColumn.Hidden = True
    Columns("Q:Q").EntireColumn.AutoFit
    Columns("R:R").EntireColumn.Hidden = True
    Columns("T:AC").EntireColumn.Hidden = True
    Columns("AD:AD").EntireColumn.AutoFit
    Columns("AE:AE").EntireColumn.Hidden = True
    Columns("D:D").EntireColumn.AutoFit
    
    'Sort Data
    ActiveWorkbook.Worksheets("Inventory").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Inventory").Sort.SortFields.Add2 Key:=Range( _
        "D2:D1321"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Inventory").Sort
        .SetRange Range("A1:AE1321")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    Range("C1").AutoFilter  
   
End Sub

thanks
Sam

 

[Fluff]

How about

   With Sheets("Inventory")
      .Range("A1:AE" & .Range("A" & Rows.Count).End(xlUp).Row).Sort .Range("D1"), xlAscending, , , , , , xlYes
   End With

This uses col A to find the last row.

 

[Dummy Excel]

How about

   With Sheets("Inventory")
      .Range("A1:AE" & .Range("A" & Rows.Count).End(xlUp).Row).Sort .Range("D1"), xlAscending, , , , , , xlYes
   End With

This uses col A to find the last row.

thank you this is perfect

 

[Fluff]

You're welcome & thanks for the feedback.