tired, so tired

[viper]

I'm working on my finishing touches on my spreadsheet. I finally have worksheet 5 to sort when a cells value changes. My problem is, the data is linked to 4 other sheets and when the data is sorted only columns A:C on the other 4 are sorted. I need for columns A:J to be sorted. Brief history of my sheet. Worksheet 5 contains Names and salary in columns A:C, the other 4 contain the names in columns A:C but also contain figures for each name in columns D:J. My problem now is when the data is sorted only the names and salary in A:C are sorted the figures in D:J stay. In my sort macro I have the following code:

Application.ScreenUpdating = False
Range("A6:J10").Select
Selection.Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A13:J41").Select
Selection.Sort Key1:=Range("A13"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A6").Select
Is the reason my sorting is not working properly because on sheet 5 columns d:j contain no figures but on the four they do. My macro is called from sheet 5 so when the sorting is done it is basically sorting columns a:c and the empty cells for D:J.
I hope I've explained my situation okay, but I'm tired.