title: vba Entire Column should copy
body: <p>" find " cell value in header will keep changing in raw file, i need " find " cell value ENTIRE column should copy and paste in sheet2  </p>
  
  <p><code>Sub Macro3()</code></p>
  
  <pre><code>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
  </code></pre>
  
  <p>End Sub</p>