It's the For iName loop that does the work
Option Explicit
Sub SortAndFormat()
Dim wsData As Worksheet
Dim rData As Range, rDataWithoutHeaders As Range
Dim iName As Long
Application.ScreenUpdating = False
Set wsData = Worksheets("Sheet1")
Set rData = wsData.Cells(1, 1).CurrentRegion
Set rDataWithoutHeaders = rData.Cells(2, 1).Resize(rData.Rows.Count - 1, rData.Columns.Count)
With wsData.Sort
.SortFields.Clear
.SortFields.Add Key:=rDataWithoutHeaders.Columns(1), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=rDataWithoutHeaders.Columns(2), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange rData
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
For iName = rData.Rows.Count To 2 Step -1
If rData.Cells(iName, 1).Value = rData.Cells(iName - 1, 1) Then rData.Cells(iName, 1).ClearContents
Next
Application.ScreenUpdating = True
End Sub