Sorting data changes all columns

[mrsamjones28]

I did a transfer using VBA. I am having trouble now filtering the data and sorting it. I used the following in VBA:

Sub Copy()
Sheets("Data Entry").Range("A5:A654").Copy Sheets("Try1").Range("A5")
Sheets("Data Entry").Range("A5:A654").Copy Sheets("Try1").Range("D5")
Sheets("Data Entry").Range("A5:A654").Copy Sheets("Try1").Range("G5")
Sheets("Data Entry").Range("A5:A654").Copy Sheets("Try1").Range("J5")
Sheets("Data Entry").Range("A5:A654").Copy Sheets("Try1").Range("M5")
Worksheets("Try1").Range("B5:b654").Value = Worksheets("Data Entry").Range("F5:F654").Value
Worksheets("Try1").Range("E5:E654").Value = Worksheets("Data Entry").Range("G5:G654").Value
Worksheets("Try1").Range("H5:H654").Value = Worksheets("Data Entry").Range("H5:H654").Value
Worksheets("Try1").Range("K5:K654").Value = Worksheets("Data Entry").Range("I5:I654").Value
Worksheets("Try1").Range("N5:N654").Value = Worksheets("Data Entry").Range("J5:J654").Value

End Sub

When I try to go to the Try1 data and sort it, doing sorting on one column affects all the columns. I am not sure why.

 

[Fluff]

When sorting are you just selecting col B & when it asks if you want to expand the selection, do you select "continue with current selection"?
Also do you have any merged cells?