Sorting by multiple conditions VBA

[MM91]

Hi I have been working on this code that will sort first by Section (Column A) then numerically by Type (Column L) then by date (Column B) and it works as needed. However I need to add a condition that if the cell in column D says "Assy" "Assembly" or "Asm" then it moves that row to the top of the prod. order sorting. Is there a simple way to do this? Thank you!!





Sub SortandFormat()

' Sorts By Section & Then by Part Type & Then By Date
Dim LR As Long
Application.ScreenUpdating = False
LR = Cells(Rows.Count, 1).End(xlUp).Row
Range("A7:Q" & LR).Sort Range("A7"), xlAscending, Range("L7"), , xlDescending, Range("B7"), xlAscending, xlNo

End Sub

 

[fadee2]

I'd suggest providing a sample file that would make it easier for everyone trying to help, to better understand and suggest solutions accordingly, rather then interpreting the query and making assumptions.
You can upload your file to any free file sharing service like google drive, one drive, dropbox, etc and share the link in the thread.

hth.....

 

[MM91]

I'd suggest providing a sample file that would make it easier for everyone trying to help, to better understand and suggest solutions accordingly, rather then interpreting the query and making assumptions.
You can upload your file to any free file sharing service like google drive, one drive, dropbox, etc and share the link in the thread.

hth.....

Thank you I was trying to load it through this website but couldn't so i settled for pictures. Heres a link thank you!!

History Log REV B.xlsm

Sheet1 MATT,JEFF,ANDY,katie,FRANK,DAFDSF 4,4,7 5,5,8 4,9,3,6,6,9 5,10,5,7,7,111 6,11,2,8,8,2 1,5,3,2,1,5 16,35,13,32,31,142 5,5,5,5,5,5 21,40,18,37,36,147 8,8,8,8,8,8 9,9,9,9,9,9 41,20,30,40,20,50 55,12,24,55,55,55 41,41,41,41,41,41 10,10,10,10,10,10 50,50,50,50,50,50 10,10,10,10,10,10 10,10,10,10

docs.google.com

 

[fadee2]

I think you have uploaded wrong file.