VBA列全体はヘッダーにセルの値を「見つける」

Question

をコピーする必要がRAWファイルに変化し続けるだろう、私は「見つける」セル値の全体の欄が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 

終了サブ

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