Если вы повторяете через рядки в обратном порядке и уничтожаете их от дна вверх по вам, то потревожиться о вашем индексе. что-то как следующий работало бы…
Приватная подводная лодка CommandButton1_Click ()
Для I = ActiveCell.SpecialCells (xlLastCell). Рядок до 1 раздел -1
Если клетки, то (I, 3) = «Test1/Test2/Test3» после этого
Рядки (I). Delete
Закончитесь если
Затем iий
Подводная лодка конца