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:=xlPasteColumnWidths
            .PasteSpecial Paste:=xlPasteValues
            .PasteSpecial Paste:=xlPasteFormats
        End With
    Else
        MsgBox "Cannot find 'Invoce Amount'. ", , "Header Not Found"
    End If