Excelでデータが存在している最終行から上方に向かって走査して、処理する

gistfile1.bas

Sub procedureName()
    Dim row As Long
    Dim i As Long
    Const COUNT_TARGET_COLUMN As Integer = 2
    Const dataPartRow As Long = 3
    
    row = Cells(Rows.count, COUNT_TARGET_COLUMN).End(xlUp).row
    Application.ScreenUpdating = False
    For i = row To dataPartRow Step -1
        ' 表を末端から走査して行いたい処理を記述
    Next i
    Application.ScreenUpdating = True
End Sub