Sub CustomSort()
With StockList.Sort
.SortFields.Add Key:=Range("B11:B" & Cells(Rows.Count, "B").End(xlUp).Row), Order:=xlAscending
.SortFields.Add Key:=Range("C11:C" & Cells(Rows.Count, "C").End(xlUp).Row), Order:=xlAscending, CustomOrder:="M, F, N/A"
.SortFields.Add Key:=Range("G11:G" & Cells(Rows.Count, "G").End(xlUp).Row), Order:=xlAscending
.SortFields.Add Key:=Range("E11:E" & Cells(Rows.Count, "E").End(xlUp).Row), Order:=xlAscending
.SortFields.Add Key:=Range("F11:F" & Cells(Rows.Count, "F").End(xlUp).Row), Order:=xlAscending, _
CustomOrder:="UK 2-5, UK 5 - 8, UK 5.5 - 8, UK 8 - 11, UK 8.5 - 11, US 2, US 4, US 6, US 8, UK 4, UK 6, UK 8, UK 10, UK 12, UK 14, XS, S, M, L, XL, 28", 30", 32", 34", 2.5m, 3.5m, 12 oz, 14 oz, 16 oz, N/A"
.SetRange Range("B11:J" & Cells(Rows.Count, "B").End(xlUp).Row)
.Header = xlNo
.Apply
End With
End Sub
How do I include
Bookmarks