Здравствуйте. Есть такая задача: имеется таблица N на N. К данной таблице применяются определенные преобразования, но они однотипные, хочется сделать это в цикле, только ни разу их не использовал. Фрагмент кода, который нужно выполнять в цикле привожу в файле ( в виде скриншота - так как при выводе в текстовый файл сбивается кодировка) и тут.'  
 
Чистый скрипт, комменты не хочет показывать в нужной кодировке, что мы можем наблюдать в первом посте, поэтому скрипт в чистом виде чуть ниже, а комментарии выше в прикрепленном файле можно почитать.  
 
    Columns("E:E").Select                  
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove  '  
    Range("D3:D33").Select '  
    Selection.Cut          '  
    Range("E3").Select     '    
    ActiveSheet.Paste      '  
    Columns("E:E").EntireColumn.AutoFit '    
    Range("B3").Select '  
    Selection.Copy     '  
    Range("D3").Select '  
    ActiveSheet.Paste  '  
    Columns("D:D").EntireColumn.AutoFit    
    Application.CutCopyMode = False  
    Selection.AutoFill Destination:=Range("D3:D33"), Type:=xlFillDefault    
       
 
 
    Columns("G:G").Select          
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove '    
    Range("F3:F33").Select  '  
    Selection.Cut          '  
    Range("G3").Select '    
    ActiveSheet.Paste      '  
    Columns("G:G").EntireColumn.AutoFit '    
    Range("D3").Select '    
    Selection.Copy     '  
    Range("F3").Select '  
    ActiveSheet.Paste  '  
    Columns("F:F").EntireColumn.AutoFit    
    Application.CutCopyMode = False  
    Selection.AutoFill Destination:=Range("F3:F33"), Type:=xlFillDefault