vba 같은값 순번매기기

Sub 같은값순번매기기()
On Error GoTo errHandler
Dim lastRow As Long, k As Long, t As Long
Dim xRange As Range
Dim compValue As String
Dim listCheck As Variant

    lastRow = Cells(Rows.Count, "C").End(xlUp).Row
 For t = 2 To lastRow
     Set xRange = Range("C1:C" & t)
     k = Application.WorksheetFunction.CountIf(xRange, Cells(t, 3))
     Worksheets("사용내역").Cells(t, 7) = k
 Next t
 Exit Sub