问在尝试对数据进行排序时，如何克服运行时错误'1004‘？

EN

If Abs(Worksheets("Points").Cells(i, 4).Value - Worksheets("Points").Cells(i - 1, 5).Value) > _
Abs(Worksheets("Points").Cells(j + 1, 4).Value - Worksheets("Points").Cells(i, 5).Value) Then
    'Test to see whether logically the User moved from
    'the previous Sensors to the time stamp Sensors (Decending) or
    'from the time stamp Sensors to the next Sensor (Acending).
    'This If is used to determine whether sorting must happen
    'in an Acending or Decending order
    'Time MUST be in date format!!!!!

    Worksheets("Trips").Range(Cells(1, 23), Cells(k, 27)).Sort _
    Key1:=Worksheets("Trips").Range(Cells(1, 27)), Order1:=xlDescending, Header:=xlNo
Else
    Worksheets("Trips").Range(Cells(1, 23), Cells(k, 27)).Sort _
    Key1:=Worksheets("Trips").Range(Cells(1, 27)), Order1:=xlAscending, Header:=xlNo
End If