2 способа показать выбранные строки в Excel (показывать по одной)

КОД КНОПКИ ОБНОВИТЬ

Application.ScreenUpdating False
'очистить содержимое
Диапазон(/"B10:F19/").Выбрать
Выбор.Очистить содержимое
'скрыть строки
Строки(/"11:19/").Выбрать
Selection.EntireRow.Hidden True

КОД КНОПКИ ДОБАВИТЬ БОЛЬШЕ

Application.ScreenUpdating False
При ошибке Возобновить Далее
Dim lHiddenRws как можно дольше
С Cells.SpecialCells(xlCellTypeVisible)
lHiddenRws .Области(1).Rows.Count 1
.Области(1)(lHiddenRws, 1).EntireRow.Hidden False
Конец с

ПРИМЕР ШАБЛОНА (скачать здесь)
https://drive.google.com/file/d/1V6QTuIzwjGV4TlH3RgqRBtMvph4lZrI0/view?uspsharing