Sub CopyPivot()

     Dim shSrc As Worksheet, shRes As Worksheet
     Dim lr As Long
      
     'здесь нужно  указать порядковые номера или имена листов,с которыми
     'макросу надо работать
     'shSrc -это лист,на котором находится сводная
     'shRes -это лист,куда надо скопировать
     Set shSrc = Worksheets(1)
     Set shRes = Worksheets(2)
      
     lr = shSrc.Columns("A:C").Find(What:="?", LookIn:=xlFormulas, LookAt:= _
         xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _
         , SearchFormat:=False).Row
      
     Application.ScreenUpdating = False
      
     shRes.UsedRange.EntireRow.Delete
      
     shSrc.Rows("4:" & lr).Copy
     shRes.Range("A1").PasteSpecial xlPasteColumnWidths
     shRes.Range("A1").PasteSpecial xlPasteAll
     Application.CutCopyMode = False
      
     Application.ScreenUpdating = True

End Sub