【マクロ・VBA】可視セルに連番を記入する

Sub オートフィルタ可視セルに連番を記入する()

Dim Buf As Long
Dim Cnt As Long
Dim LastRow1 As Long

    LastRow1 = Cells(Rows.Count, 1).End(xlUp).Row
    Cnt = 1

    For Buf = 2 To LastRow1

        If Rows(Buf).Hidden = False Then
            Cells(Buf, 4) = Cnt
            Cnt = Cnt + 1
        End If

    Next

End Sub