Sub tri_special()
Application.ScreenUpdating = False
Dim Derlig As Long, I As Long
Derlig = [B65000].End(xlUp).Row
With Range("A4:A" & Derlig)
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
Range("A4:B" & Derlig).Sort Key1:=Range("A4"), Order1:=xlAscending, Key2:=Range("B4") _
, Order2:=xlAscending, Header:=xlGuess
For I = Derlig To 4 Step -1
If Cells(I, 1).Value = Cells(I - 1, 1).Value Then Cells(I, 1).Value = ""
Next I
End Sub