Try this:
Option Explicit
Sub SortSpecial()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
With Range("A1:C" & LR)
.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
With Range("A2:A" & LR)
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTIF($B$1:$B1,$B1)=1"
With .FormatConditions(1).Font
.Bold = True
.Italic = False
End With
End With
End Sub
Bookmarks