Здравствуйте!  
Простенький цикл по удалению столбцов.  
Удаление столбцов можно организовать и без цикла, наверное, но хочется понять такой вариант.  
Короче: циклом удаляются столбцы через один, а надо подряд в указанном диапазоне. Где подвох догадываюсь, а как правильно прописать - не знаю.  
Подскажите, пожалуйста.  
Вот код и примерчик.  
 
Sub ttt()  
 
   k = [A1] * 2 + 3
     
   For k = k To 30 Step 1  
     Columns(k).Delete Shift:=xlToLeft  
   Next  
 
End Sub