求代码注释

哪位大神帮忙把下边这段代码加一下注释！

Public Sub updateRow()

'-----------------------------------------------------
    Dim rowCount As Long, ur
    Set ur = Application.Worksheets("变更单").UsedRange.Rows
    rowCount = ur.Count
   
    Dim dicUpdate
    Set dicUpdate = CreateObject("Scripting.Dictionary")
   
    = vbTextCompare
   
    Dim utemp(1 To 2) As Variant
   
    For Each cr In ur
        If cr.Row > 1 And cr.Row < rowCount Then
            utemp(1) = cr.Columns(8)
            utemp(2) = cr.Columns(10)
            
            dicUpdate.Item(cr.Columns(1).Value) = utemp
        End If
    Next cr
 
   
    '-------------------------------------------------