Наборы операций с данными рабочего листа

Продублируем наборы операций которые мы рассматривали для ООО в VBA.
Вставка и удаление столбцов и строк:
Sub InsDel
    Worksheets("Sheet1").Columns("C:C").Insert
    Worksheets("Sheet1").Columns("C:C").Delete
    Worksheets("Sheet1").Rows("1:1").Insert
    Worksheets("Sheet1").Rows("1:1").Delete
End Sub

Метод Insert отвечает за вставку, Delete за удаление. Несколько смежных столбцов или строк можно вставить и удалить лишь указав в данном коде это условие:
Sub InsDel2
    Worksheets("Sheet1").Columns("A:C").Insert
    Worksheets("Sheet1").Columns("A:C").Delete
    Worksheets("Sheet1").Rows("1:10").Insert
    Worksheets("Sheet1").Rows("1:10").Delete
End Sub

Автоширина для столбцов указывается с явным указанием необходимых примером следующего кода:

Sub AutoF

Worksheets("Sheet1").Columns("A:R").EntireColumn.AutoFit

End Sub

Копирование столбца в другое место проводится с помощью одной строки:

Sub CopyCol()
'Вставим пустой столбец
Worksheets("Sheet1").Columns("A:A").Insert
' Скопируем нужный столбец на это место
   Worksheets("Sheet1").Columns("C").Copy Columns("A")
End Sub

Данным кодом мы перенесли  столбец с датой документа первым столбцом в документе Реестр документов.
Объединение ячеек проводится также одной строкой кода:
Sub Merg
  Worksheets("Sheet1").Range("A1:R1").Merge
End Sub

Задача: Удалите из Реестра документов столбцы DETAIL, USERNAME. Поменяйте местами столбцы Дата документа и Номер документа.