Слишком большая процедура при удалении столбцов

Question

В следующих строках кода я хочу объединить два столбца (A, B), но когда я запускаю макрос, у меня появляется ошибка «процедура слишком большая», потому что я думаю, что есть повторяющийся код.Пожалуйста, как мне заставить этот код работать!У меня есть 6215 строк кода с таким же повторяющимся кодом, как тот, который прикреплен.Спасибо

 Columns("A:B").Select
Range("A626").Activate
With Selection
    .HorizontalAlignment = xlGeneral
    .VerticalAlignment = xlTop
    .WrapText = True
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlLTR
    .MergeCells = True
End With
With Selection
    .HorizontalAlignment = xlGeneral
    .VerticalAlignment = xlTop
    .WrapText = True
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .MergeCells = True
End With
With Selection
    .HorizontalAlignment = xlGeneral
    .VerticalAlignment = xlTop
    .WrapText = True
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .MergeCells = True
End With
With Selection
    .HorizontalAlignment = xlGeneral
    .VerticalAlignment = xlTop
    .WrapText = True
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .MergeCells = True
End With
With Selection
  ..............

Answer 1

Удалите все дубликаты кода и попробуйте это.

Sub test()
    Range("A1:B626").UnMerge
    Columns(2).Delete
End Sub