1: 2: 3: 4: 5: 6:
Sub KillA () Тусклое rng1 как ряд На резюме ошибки затем Установите rng1 = рядки (1).SpecialCells (xlBlanks) Если не rng1 ничего после этого rng1.Cells, то (1).EntireColumn.Delete Закончите подводную лодку