Too much .activate

Hello

My goal is to create a code that "exports" 8 different pivottables from 4 different worksheets to another workbook called rev*.
The filename of the rev* workbook changes name each week but the first 3 characters are always the same.
The code below is a partial code to do the first 2 tables from worksheet 1.
When updating, the code needs to clear the old data because the pivot tables can vary in size each week.

Dim dwb As Workbook
Dim swb As Workbook
Set dwb = ActiveWorkbook

    For Each wb In Application.Workbooks
        If wb.Name Like "Rev*" Then wb.Activate: Set swb = ActiveWorkbook: GoTo a:
    Next wb

    MsgBox "Failed to locate Rev* workbook": GoTo b:

a:
'CLEAR OLD DATA: A1 is an empty cell, so this overwrites the borders and old values, figured this was faster
    Worksheets("1").Activate
    Range("A1").Select
    Selection.Copy
    Range("B4:Q38").Select 'This is the maximum range of the 1st pivottable
    ActiveSheet.Paste
    Range("B48:Q82").Select 'This is the maximum range of the 2nd pivottable
    ActiveSheet.Paste
'Copy the 1st pivottable and paste it to the rev* workbook
    dwb.Activate
    With Worksheets("1")
    .Activate
    .PivotTables("PivotTable2").TableRange2.Copy
    End With
    swb.Activate
    With Worksheets("1")
    .Activate
    .Range("B4").Select
    End With
    IP 'Paste function of the pivot table, look below
'Copy the 2nd pivottable and paste it to the rev* workbook
    dwb.Activate
    With Worksheets("1")
    .Activate
    .PivotTables("PivotTable1").TableRange2.Copy
    End With
    swb.Activate
    With Worksheets("1")
    .Activate
    .Range("B48").Select
    End With
    IP
b:
End Sub

IP()
'Import Pivot function
        With Selection
        .PasteSpecial Paste:=xlPasteAll
        .PasteSpecial Paste:=xlValues
        End With
End Function

My questions is this, is there a better way to do the select worksheet and paste? I think that my current code is quite messy. And why do I have to activate both the workbook and the worksheet like this?
swb.Activate
With Worksheets("1")
.Activate
.Range("B4").Select
End With
I tried to just do dwb.worksheets("1").activate but get an error.

The Code works. Would appreciate some input though if there is something smarter than my current code as I didn't know what VBA was prior to january, so I'm still pretty new at this. Let me know if you have additional questions.

Firstly, could you please edit your post to add code tags - makes it a lot easier to read/copy.

Don't use Activate or Select.

If you want to copy 'PivotTable2' from worksheet '1' in the workbook referenced by dwb and paste it to worksheet '1' in workbook swb at B4.

 dwb.Worksheets("1").PivotTables("PivotTable2").TableRange2.Copy 

 swb.Worksheets("1").Range("B4").PasteSpecial xlPasteAll
 swb.Worksheets("1").Range("B4").PasteSpecial xlPasteValues

Not sure how copy and paste would clear cells.

If you wanted to clear cells you would use Clear (or ClearContents), or even just set them all = "".

Paste and PasteSpecial aren't the same.

If you want to clear all formats from a range use ClearFormats instead of resetting individual format properties like Interior.