Urgent help required, deadline 18.00 today

Private Sub DataTransferFromRecivedList()


'Name
Windows("received List.xls").Activate
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Spreadsheet Template - Do Not Amend.xls").Activate
Range("A2").Select
ActiveSheet.Paste

'Staff Number
Windows("received List.xls").Activate
Range("E2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Spreadsheet Template - Do Not Amend.xls").Activate
Range("B2").Select
ActiveSheet.Paste

'PRIMARY SKILL / ROLE
Windows("received List.xls").Activate
Range("B2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Spreadsheet Template - Do Not Amend.xls").Activate
Range("C2").Select
ActiveSheet.Paste

'TEAM LEADER
Windows("received List.xls").Activate
Range("H2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Spreadsheet Template - Do Not Amend.xls").Activate
Range("I2").Select
ActiveSheet.Paste

'TEAM MANAGER
Windows("received List.xls").Activate
Range("I2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Spreadsheet Template - Do Not Amend.xls").Activate
Range("J2").Select
ActiveSheet.Paste

'ZERO COUNT
Windows("received List.xls").Activate
Range("Z2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Spreadsheet Template - Do Not Amend.xls").Activate
Range("E2").Select
ActiveSheet.Paste

Windows("received List.xls").Activate
Selection.AutoFilter

End Sub

This above macro filps onto the "Recieved List" and the sorts and copys
I have 8 different Recieved list that are sent to me , on 7 of them this copy paste macro works a treat however on one of them primary skill and team leader only copys the first cell of sort data , could this Recieved list be setup in a different way ? help ..

'PRIMARY SKILL / ROLE
Windows("received List.xls").Activate
Range("B2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Spreadsheet Template - Do Not Amend.xls").Activate
Range("C2").Select
ActiveSheet.Paste

'TEAM LEADER
Windows("received List.xls").Activate
Range("H2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Spreadsheet Template - Do Not Amend.xls").Activate
Range("I2").Select
ActiveSheet.Paste