need help in copiyng the "entire coloum" macro.

Thanks, It worked.

Any help on how Can I have only value to be pasted instead of Formula or formats from Pivot Table?

I have added few columns with formula in it, next to Pivot table. When it searches the "invoices amount" and copy the entire row, it also copy the "#DIV/0!" (if any found) in the Summary - qtr sheet. I found below code, but does not seems to work. It still copy the #DIV/0! in summary sheet.

Worksheets("Raw Pivot").Activate
Range("A4").Select
      Dim Found6 As Range
    Set Found6 = Cells.Find(What:="Invoice Amount", LookIn:=xlFormulas, LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, _
                            SearchFormat:=False)
    If Not Found6 Is Nothing Then
        Range(Found6.Offset(1), Cells(30, Found6.Column)).Copy
        'Sheets("Summary - Qtr").Select
        With Sheets("Summary - qtr").Range("B" & Rows.Count).End(xlUp).Offset(3, 0)
            .PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End With
    Else
        MsgBox "Cannot find 'Invoce Amount'. ", , "Header Not Found"
    End If
    End Sub