Sort Macro problem when Share Workbook enabled

Hi I had recorded a macro for sorting which works fine but once I switch the file to 'Share Workbook', the sorting macro sorts the header field as well??

Any suggestions on a fix? Thanks

  ActiveWindow.SmallScroll Down:=54
    Range("A3:J80").Select
    ActiveWindow.SmallScroll Down:=-84
    Selection.Sort Key1:=Range("H3"), Order1:=xlAscending, Key2:=Range("E3") _
        , Order2:=xlAscending, Key3:=Range("A4"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=6, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal