DL = [D65000].End(xlUp).Row
If DL = 18 Then Exit Sub
If DL < 6 Then
DL = 6
End If
If Len(Cells(DL, "D")) <= 20 Then
Cells(DL, "D") = Cells(DL, "D") & "-" & Num
Else
DL = DL + 1
Cells(DL, "D") = Cells(DL, "D") & "-" & Num
End If
If Left(Cells(DL, "D"), 1) = "-" Then Cells(DL, "D") = Mid(Cells(DL, "D"), 2)