Makro verändern auf andere Spalte

Sub Sortieren_App()
Dim lZ As Long
lZ = Cells(Rows.Count, 3).End(xlUp).Row
ActiveSheet.Unprotect
With Range("D2:D" & lZ)
.FormulaR1C1 = "=Match(RC2,R2C1:R" & lZ & "C1,0)"
.Offset(0, -2).Resize(, 3).Sort Key1:=.Cells(1, 1), _
Order1:=xlAscending, Header:=xlNo
.ClearContents
End With
ActiveSheet.Protect
End Sub