순번칼럼에 연속된 숫자 입력하기 질문드립니다~

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

오늘도 회사일로 끙끙대고 있는 직장인입니다.

이곳에 공부하는 일이 이제 일상이 되어서 문제를 하나하나 해결하고 있습니다~

이번에는 순번을 입력하는데 막혀서 도움을 구하고자 합니다.

위 이미지에서 처럼 연속된 순번을 입력하는데 A열을 기준으로 같은 주문번호는 같은 순번으로 입력되게 하는 일인데 잘 안됩니다.

아래와 같이 코딩했는데 잘 안됩니다~

Sub 전표순번()

'// 전표순번입력

Dim OrderPaper As Worksheet
Dim endrow As Integer
Dim i As Integer

Set OrderPaper = Worksheets("주문입력")

endrow = OrderPaper.Cells(OrderPaper.Rows.Count, "A").End(xlUp).Row '//마지막행 설정

For i = 2 To endrow
If OrderPaper.Cells(i, 1) = OrderPaper.Cells(i - 1, 1) Then
OrderPaper.Cells(i - 1, 3) = i - 2
OrderPaper.Cells(i, 3) = i - 2
Else
OrderPaper.Cells(i, 3) = i - 1
End If

Next

End Sub

고수님들의 도움의 손길을 기다립니다, 감사합니다~