在没有隐藏的行中按顺序自动填数

在Sheet1前N行中，隐藏了几行，如何用宏来实现：在没有隐藏的行中，在第一列（即A1、A2……AN）按顺序自动填上1、2、3、4、……N。

-------------------------------------------------------------

Sub 跳过隐藏行()
Dim i As Integer
Dim r As Integer
r = 1
For i = 1 To Sheet1.UsedRange.Rows.Count
If Rows(i).Hidden = False Then
Cells(i, 1) = r
r = r + 1
End If
Next i
End Sub