Я записал рекордером условное форматирование всех строк по значению X и сортировку по цвету.  
 
А как мне добавить строку под каждое совпадение X и внести туда соответствующий Y ??  
 
Sub Sort()  
' Выделение текста со словом МИКС  
   Cells.FormatConditions.Delete  
   Cells.Select  
   Range("H1").Activate  
   Selection.FormatConditions.Add Type:=xlTextString, String:="МИКС", _  
       TextOperator:=xlContains  
   Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority  
   With Selection.FormatConditions(1).Font  
       .Bold = True  
       .Italic = False  
       .TintAndShade = 0  
   End With  
   With Selection.FormatConditions(1).Interior  
       .PatternColorIndex = xlAutomatic  
       .ThemeColor = xlThemeColorAccent3  
       .TintAndShade = 0.799981688894314  
   End With  
   Selection.FormatConditions(1).StopIfTrue = True  
' Сортировка по цвету  
   Range("H5").Select  
   Selection.AutoFilter  
   ActiveWorkbook.Worksheets("Спецификация").AutoFilter.Sort.SortFields.Clear  
   ActiveWorkbook.Worksheets("Спецификация").AutoFilter.Sort.SortFields.Add Key _  
       :=Range("H1:H51"), SortOn:=xlSortOnCellColor, Order:=xlAscending, _  
       DataOption:=xlSortTextAsNumbers  
   With ActiveWorkbook.Worksheets("Спецификация").AutoFilter.Sort  
       .Header = xlYes  
       .MatchCase = False  
       .Orientation = xlTopToBottom  
       .SortMethod = xlPinYin  
       .Apply  
   End With  
End Sub