택배송장을 만들고 있는데 합포장에서 막힘니다. ~외 00건 이라고 표기하고 싶습니다.

안녕하세요, 고수님들^^

언제나 님들의 도움으로 회사업무를 나날이 향상시키고 있어 늘 감사한 마음입니다.
오늘은 택배송장 출력 코딩을 하는데 합포장에서 막혔습니다.

위의 데이타를 아래와 같이 합포장을 묶어서  맨윗줄만 남기고 나머지는 삭제시키고 맨 위 제품 품명 뒤에 ~외 oo권 이라고 표기하고 싶습니다.

Sub 합포장하기()

Dim OrderPaper As Worksheet
Dim i As Integer

Set OrderPaper = ThisWorkbook.Worksheets("판매현황")
endrow = OrderPaper.Cells(OrderPaper.Rows.Count, "A").End(xlUp).Row
Set GcodeRng = OrderPaper.Range("K2:K" & endrow)

With OrderPaper
'// 합포장 출고번호 삭제

For i = endrow To 2 Step -1
gcode = "*합포장*"
Set FindRange = GcodeRng.Find(gcode, LookAt:=xlPart)

If Not FindRange Is Nothing And .Cells(i, 2) = .Cells(i - 1, 2) Then '//적요에 합포장이 있고, 출고번호 같을 때

OrderPaper.Rows(i - 1).EntireRow.Delete Shift:=xlUp
Else
End If
Next

End With

이 다음에는 어떻게 코딩해야 하는지 고수님들의 혜안을 기다리고 있겠습니다~