2 Ways to Unhide Selective Rows in Excel ( Unhide one at a time )

REFRESH BUTTON CODE

Application.ScreenUpdating = False
'clear contents
Range("B10:F19").Select
Selection.Clearcontents
'hide rows
Rows("11:19").Select
Selection.EntireRow.Hidden = True

ADDMORE BUTTON CODE

Application.ScreenUpdating = False
On Error Resume Next
Dim lHiddenRws As Long
With Cells.SpecialCells(xlCellTypeVisible)
lHiddenRws = .Areas(1).Rows.Count + 1
.Areas(1)(lHiddenRws, 1).EntireRow.Hidden = False
End With

SAMPLE TEMPLATE ( Download Here )
https://drive.google.com/file/d/1V6QTuIzwjGV4TlH3RgqRBtMvph4lZrI0/view?usp=sharing

Видео 2 Ways to Unhide Selective Rows in Excel ( Unhide one at a time ) канала Cris Minas