Ну что я могу сказать?
Праздники прошли, похмельный синдром тоже. Работающий прототип готов.
хе-хе
Только щас косяк заметил.
В процедуре Sub Button6_Click()
есть строчка
Range("A2:D" & strLast).Select
её нужно заменить на
Range("A2:D" & strLast + 2).Select
