搜索标题，选择列，插入（不粘贴）到另一个工作表

Question

如上所述，我在过去使用过一些代码来根据搜索某个标题来粘贴列，但我不能在生活中找出如何使其适应插入而非比粘贴。

本质上，这将用于创建摘要表，未来列的大小可能会有所不同，因此我需要插入它们以避免覆盖源自工作簿中其他工作表的值。

几乎可以肯定有一种更好的方法，而不是采用以下方法，但我们非常感谢任何帮助。

我已经复制了我以下的原始代码。

Sub CopyColumnByTitle()

Dim t As Range

'Find "Name" in Row 1
  With Sheets(2).Rows(1)
   Set t = .Find("SEX", lookat:=xlPart)
'If found, copy the column to Sheet 2, Column A
'If not found, present a message
 If Not t Is Nothing Then
    Columns(t.Column).EntireColumn.Copy _
      Destination:=Sheets(3).Range("A1")
   Else: MsgBox "Title Not Found"
 End If
 End With
 End Sub

干杯