Sort Data By Multiple Columns And Delete Some Rows Based On Criteria

[Admin]

Hi

Sorry for the late reply.

replace this line

.Sort .Cells(2, 2), 1, , .Cells(2, 3), 1, .Cells(2, 6), 2, Header:=1

with

.Sort .Cells(2, 2), 1, , .Cells(2, 3), 1, .Cells(2, 6), 1, Header:=1