Seeking method to sequentially fill numbers in visible cells only

[auto.pilot]

I have the following code which simply fills the range starting in cell A5 (down) to the end of the populated cells in column B. It works, but I'd like to instead fill only the visible cells. For example, if rows 10 & 11 are hidden or filtered, I'd like to return nothing. Then, I need to continue the sequential numbers in row 12.

How can I do this?

Sub Sequential()
Dim Lst As Long

Lst = Range("B" & Rows.Count).End(xlUp).Row - 4


With Range("A5")
    .Value = "1"
    .AutoFill Destination:=Range("A5").Resize(Lst), Type:=xlFillSeries
End With

End Sub

 

[Rick Rothstein]

Give this macro a try...

[table="width: 500"]
[tr]
	[td]Sub SequentialNumbersSkipHiddenRows()
  Dim Num As Long, Cell As Range
  Application.ScreenUpdating = False
  For Each Cell In Range("A5", Cells(Rows.Count, "B").End(xlUp).Offset(, -1)).SpecialCells(xlVisible)
    Num = Num + 1
    Cell.Value = Num
  Next
  Application.ScreenUpdating = True
End Sub
[/td]
[/tr]
[/table]

 

[auto.pilot]

Give this macro a try...

[table="width: 500"]
[tr]
	[td]Sub SequentialNumbersSkipHiddenRows()
  Dim Num As Long, Cell As Range
  Application.ScreenUpdating = False
  For Each Cell In Range("A5", Cells(Rows.Count, "B").End(xlUp).Offset(, -1)).SpecialCells(xlVisible)
    Num = Num + 1
    Cell.Value = Num
  Next
  Application.ScreenUpdating = True
End Sub
[/td]
[/tr]
[/table]

Excellent!

Thanks for your prompt reply.

jim