Sorting in code

[Ayo]

Can someone help me with this? The first sort works fine but the second sort
gives me an errormessage: The sort reference is not valid. Make sure that
it's within the data you want to sort, and the first Sort Box isn't the same
of Blank.
What does that mean?

Sheets("Sheet1").Select
ClastRow = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row
ActiveSheet.Range("D2:G" & ClastRow).Select
Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("D2").Select

Sheets("BulkUploadReport 1 ").Select
ClastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
ActiveSheet.Range("A2:O" & ClastRow).Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B2").Select

 

[Joel]

This is how IK do my sorts and never have any problems

with Sheets("Sheet1")
ClastRow = .Cells(Rows.Count, "D").End(xlUp).Row
.Range("D2:G" & ClastRow).Sort _
Key1:=.Range("D2"), _
Order1:=xlAscending, _
Header:=xlGuess
end with

with Sheets("BulkUploadReport 1 ")
ClastRow = .Cells(Rows.Count, "B").End(xlUp).Row
.Range("A2:O" & ClastRow).Sort _
Key1:=.Range("B2"), _
Order1:=xlAscending, _
Header:=xlGuess
end with

 

[Ayo]

I just tried it and I got the same error message. I don't think that is the
problem.

 

[Joel]

Do you have any merged cells. Unmerge your cells are try to sort again.

 

[Ayo]

No. there are no mere cells. If you don't mind I can send you the file and
maybe you can figure it out. It is a 365KB file.