VBA整列應該複製

Question

「查找」，在標題單元格的值將保持在原始文件改變，我需要「發現」單元格值整列應該複製並粘貼到Sheet2中

Sub Macro3()

Cells.Find(What:="FSP Center", After:=ActiveCell, LookIn:=xlFormulas, _ 
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
    MatchCase:=False, SearchFormat:=False).Activate` 
Cells.FindNext(After:=ActiveCell).Activate` 
Columns("A:A").Select 'i want to select entire column 
Selection.Copy 
Sheets("Sheet2").Select 
ActiveSheet.Paste 

結束Sub

Answer 1

Sub Macro3() 

    Dim f As Range 
    Set f = Rows(1).Find(What:="FSP Center", After:=ActiveCell, _ 
         LookIn:=xlFormulas, LookAt:=xlPart, _ 
     SearchOrder:=xlByRows, SearchDirection:=xlNext) 

    If Not f Is Nothing Then 
     f.EntireColumn.Copy Sheets("Sheet2").Range("A1") 
    End f 

End Sub