Probably because 1) I can't count, and 2) I didn't have a good enough test case
Set r = r.Cells(3, 1).Resize(r.Rows.Count - 2, r.Columns.Count)
Option Explicit
Sub Macro1()
Dim r As Range
Set r = ActiveSheet.Cells(1, 1).CurrentRegion
Set r = r.Cells(3, 1).Resize(r.Rows.Count - 2, r.Columns.Count)
With ActiveSheet.Sort
.SortFields.Clear
.SortFields.Add Key:=r.Columns(2), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange r
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub