Как скопировать определенные столбцы и вставить их в другие столбцы?

Question

В Excel, как использовать VBA для автоматического выбора и копирования 4 столбцов с заголовком, включая («плановый запуск DBL», «плановый запуск FPI», «Cent.» И «Pat.») В столбцы из «EZ» на "ФА"?

Я пробовал коды, как показано ниже, но первая часть может работать, во второй части возникла ошибка.

Sub Search()
' Search for "DBL planned start"
For Each Rng In Range("a1:ei1")
    If Rng = "DBL planned start" Then
        a = Rng.Column
    End If
Next
Columns(a).Copy Destination:=Columns("EL")

' Search for "FPI planned start"
For Each Rng In Range("a1:ei1")
    If Rng = "FPI planned start" Then
        a = Rng.Column
    End If
Next
Columns(a).Copy Destination:=Columns("EL")
End Sub

Просто хотите скопировать столбцы с заголовком, включая «Запланированный запуск DBL», «Запланированный запуск FPI», «Cent.» И «Pat.» в столбец между "EZ" и "FA". Большое спасибо!