Необходимо убрать повторяющиеся столбцы

[victoria0]

Таблица формируется с помощью заполнения гугл формы, из-за этого появляются повторяющиеся столбцы Необходимо убрать повторяющиеся столбцы используя первый столбец, как главный. Не могу автоматизировать это

[Казанский]

Пробуйте. Не понял, что значит "используя первый столбец, как главный".

Sub bb()
Dim c As Range, r As Range
  For Each c In Range("B1", Cells(1, Columns.Count).End(xlToLeft))
    If WorksheetFunction.CountIf(Range("A1", c), c) > 1 Then
      If r Is Nothing Then Set r = c Else Set r = Union(r, c)
    End If
  Next
  If Not r Is Nothing Then r.EntireColumn.Delete
End Sub

[victoria0]

Пробовала сделать) Но данные просто обрезались.
В итоговом варианте должно было быть два ответа по кодом 1401102300003

[Казанский]

В итоговом варианте должно было быть два ответа по кодом 1401102300003

Тогда опишите алгоритм, как обрабатывать столбец с заголовком, который уже был.

[Oldy7]

Проверяет на заполненность диапазона, кроме заголовков и первого столбца. С первого пустого столбца начинается подсчет столбцов на удаление.

Sub qwerty()
Dim qq As Range
aa = ActiveSheet.UsedRange.Columns.Count
bb = ActiveSheet.UsedRange.Rows.Count
dd = 0: ff = 0
For a = 2 To aa
cc = 0
For b = 2 To bb
If Cells(b, a) <> Empty Then cc = cc + 1
Next b
If cc = 0 Then
If qq Is Nothing Then
Set qq = Columns(a): ff = ff + 1
Else
Set qq = Union(qq, Columns(a)): ff = ff + 1
End If: End If
Next a
If ff <> 0 Then qq.Delete
End Sub

П.С.: Предыдущий ответ более изящный)