如何复制某些特定的列并将其粘贴到其他列？

Question

在excel中，如何使用VBA自动选择并将标题为（“ DBL计划开始”，“ FPI计划开始”，“分”和“样式”）的4列复制到“ EZ”列中到“ FA”？

我尝试了以下代码，但是第一部分可以工作，第二部分产生了错误。

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计划的开始”，“分”和“帕特”的列。在“ EZ”和“ FA”之间的列。 非常感谢！