makro umschreiben

Sub pn_1_7_1()
Dim i As Long, ar As Variant, j As Integer
For i = 1 To Cells(1, 1).End(xlDown).Row
If Cells(i, 1).Value Like "#-#######-#" Then
ar = Split(Cells(i, 1).Value, "-")
j = 1
While Mid(ar(1), j, 1) = "0"
j = j + 1
Wend
If j > 1 Then ar(1) = Mid(ar(1), j)
End If
If ar(0) = "0" Then
Cells(i, 2).Value = ar(1) & IIf(ar(2) = "0", "", "-" & ar(2))
Else
Cells(i, 2).Value = Join(ar, "-")
End If
Next
End Sub

diese Makro würde ich gerne so umschreiben, das der Ausgangswert in "G13" steht und das Ergeniss in "H13" herauskommt. was müsste ich hier ändern?
Grüße
Harris