Why is this code to sort data falling over?

[TheWennerWoman]

Hope someone can help, I'm really puzzled by this. Basically, I am looking to sort a dataset based on column AY (smallest to largest). This is my code:

Columns("A:DY").Select
Range("DY1").Activate
ActiveWorkbook.Worksheets("7c. Consolidated Tagetik Input").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("7c. Consolidated Tagetik Input").Sort.SortFields.Add2 Key:=Range("DY2:DY" & lastrow), SortOn:=xlSortOnValues, Order:=xlAscending _
, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("7c. Consolidated Tagetik Input").Sort
    .SetRange Range("A1:DY" & lastrow)
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

The variable lastrow is declared just fine but this falls over with

Run time error 438: object doesn't support this property or method

I think I might even have used the macro recorder to get the code in the first place so I'm totally confused!

 

[Fluff]

Are you trying to sort by col AY or DY?

 

[TheWennerWoman]

Oh sorry, typo, DY.

 

[Fluff]

Ok, how about

With Worksheets("7c. Consolidated Tagetik Input")
   .Range("A1:DY" & .Range("A" & Rows.Count).End(xlUp)).Sort key1:=.Range("DY1"), Order1:=xlAscending, Header:=xlYes
End With

 

[TheWennerWoman]

Amazing thank you, much appreciated.

 

[Fluff]

You're welcome & thanks for the feedback.