Sort Record Macro works, then in VBA Call has ".Apply" Error

[Shiseiji]

Simple macro, works just fine when I'm recording it, and looks like what I've used in the past. I've tried a couple of minor modifications, still and getting an error. Obviously I'm missing "something."
TIA!!

Sub Sort_XDATES1()
'
' tm_Sort_XDATES Macro
'
Application.Volatile True
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.DisplayStatusBar = True
    '
    Dim LastRow                      As Long
    Dim LastCol                       As Integer
    Dim thiswksht                    As Worksheet
    '
    '
    Sheet2.Activate
    Set thiswksht = ActiveSheet
    '
    If thiswksht.AutoFilterMode Then
        AutoFilterMode = False
    End If
    '
    With thiswksht
        LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
        LastCol = Cells(1, Columns.Count).End(xlToLeft).Column
    End With
    Range("A1", Cells(LastRow, LastCol)).Select
    Selection.Name = "tbl_P"
'
    thiswksht.Sort.SortFields.Clear
    thiswksht.Sort.SortFields.Add Key:=Range("A1", Cells(LastRow, LastCol)), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With thiswksht.Sort
        .SetRange Range("A1", Cells(LastRow, LastCol))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
End Sub

 

[Fluff]

Try

thiswksht.Sort.SortFields.Add Key:=Range("A2:A" & LastRow), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

 

[Shiseiji]

Thank you sir! I had tried "A2" LastRow LastCol without a header row, but obviously not the solution you provided.
Is there a simple explanation for why the "key" range needs to be changed to exclude the first cell of the sort range?

Ron

 

[Fluff]

You can include the first cell, but it has to be a single column per field , rather then the complete range.

 

[Shiseiji]

You can include the first cell, but it has to be a single column per field , rather then the complete range.

Thanks again! Working to get my head around "field," I think, gives me the relationship between "key" and "field." While both are optional, when "key" is set as a Range, the range can't contain the header, only the values to be sorted.

Key1	Optional	Variant	Specifies the first sort field, either as a range name (String) or Range object; determines the values to be sorted.

<thead style="box-sizing: border-box;">
[TH="align: left"]Name[/TH]
[TH="align: left"]Required/Optional[/TH]
[TH="align: left"]Data Type[/TH]
[TH="align: left"]Description[/TH]

</thead><tbody style="box-sizing: border-box;">
</tbody>

Field	Optional	Variant	The integer offset of the field on which you want to base the filter (from the left of the list; the leftmost field is field one).

<thead style="box-sizing: border-box;">
[TH="align: left"]Name[/TH]
[TH="align: left"]Required/Optional[/TH]
[TH="align: left"]Data Type[/TH]
[TH="align: left"]Description[/TH]

</thead><tbody style="box-sizing: border-box;">
</tbody>