need help in copiyng the "entire coloum" macro.

[shiva_reshs]

Hello,

Cells.Find(What:="Invoce Amount", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate

I have a pivot table with lots of header in it. I copy selected column based on its header from Pivot and copy in another sheet. I created this macro which search the header but i am not able to copy the entire column. I need help to create a macro which can search the header and copy the column value.

For Example, if column A3 has "Invoice Amount", then I need macro to search Invoice amount and copy the below the entire row from below. (I do not want to copy the header, just a cell value from below header till row 30.

Regards,
Shiva