Sort one column A-Z while but only if adjacent column has data

[Extivalis]

Hi All,
Attached is a screenshot showing an example of what I'm trying to do, but:

Is there a why using macros/VBA to look at columns C&D, move group everything with data in Column D together, and then sort just the items with data in Column D alphabetically?

Currently we're manually doing this by highlighting columns C&D, going to Data > Sort, sorting column D alphabetically, then highlighting appropriate range (in the attached example, it'd be C2:D7), and then sorting column C alphabetically. It works, I'm just trying to see if I can't streamline things for my team some

Thanks.

 

[kevin9999]

Please try the following on a copy of your workbook:

Sub Sort_Twice()
    Range("C:D").Sort Key1:=Range("D1"), order1:=xlAscending, Header:=xlYes
    Range("C1:C" & Cells(Rows.Count, "D").End(xlUp).Row).Sort , Key1:=Range("C1"), order1:=xlAscending, Header:=xlYes
End Sub

 

[Peter_SSs]

To get the results shown in your image, i think that you need to make one small change to the code from post 2

Sub Sort_Twice()
  Range("C:D").Sort Key1:=Range("D1"), order1:=xlAscending, Header:=xlYes
  Range("C1:D" & Cells(Rows.Count, "D").End(xlUp).Row).Sort , Key1:=Range("C1"), order1:=xlAscending, Header:=xlYes
End Sub