Help! The recorded Macro does not work for the highlighted

Range("D1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(-1, 0).Range("A1").Select
Range(Selection, Cells(1)).Select
ActiveWorkbook.Worksheets("TB103_BS").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("TB103_BS").Sort.SortFields.Add Key:=ActiveCell. _
Offset(-534, -2).Range("A1:A535"), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("TB103_BS").Sort
.SetRange ActiveCell.Offset(-534, -3).Range("A1:D535")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With