I have a macro that takes three tables in Excel that are separated by a row of blank cells and produces three formatted tables in Word with page breaks after each table. At the moment it does this on three different documents but I need them to be all on the same one. Here is the code at present;

Dim wdApp As New Word.Application
Dim wdDoc As Word.Document
Dim wdTbl1 As Word.Table
Dim wdTbl2 As Word.Table
Dim wdTbl3 As Word.Table
Dim xlSht As Worksheet
Dim lRow As Integer
Dim lCol As Integer
Dim r As Integer
Dim c As Integer
Dim Blanks As Integer
Dim First As Integer
Dim Second As Integer

lRow = Sheets("Feedback Sheets").Range("A1000").End(xlUp).Row - 2


Blanks = 0
i = 1
    Do While i <= lRow
    Set rRng = Worksheets("Feedback Sheets").Range("A" & i)

        If IsEmpty(rRng.Value) Then
        
            Blanks = Blanks + 1
            
                If Blanks = 1 Then First = i
                If Blanks = 2 Then Second = i
                
        End If
        
        i = i + 1
    Loop
'Now I know where end of each table is

Set xlSht = ActiveSheet: lCol = 5
With wdApp
  .Visible = True
  Set wdDoc = .Documents.Add
  With wdDoc
    Set wdTbl1 = .Tables.Add(Range:=.Range, NumRows:=2, NumColumns:=lCol)
    With wdTbl1
      .Rows(1).Range.Font.Bold = True
      .Rows(1).HeadingFormat = True
      .Cell(1, 1).Range.Text = "Header 1"
      If lCol > 1 Then .Cell(1, 2).Range.Text = "Header 2"
      If lCol > 2 Then .Cell(1, 3).Range.Text = "Header 3"
    End With
    With xlSht
      For r = 1 To First
        If (r + 1) > wdTbl1.Rows.Count Then wdTbl1.Rows.Add
        If r = First Then wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak
        For c = 1 To lCol
          wdTbl1.Cell(r + 1, c).Range.Text = xlSht.Cells(r, c).Text
        Next c

      Next r
    End With
  End With
End With

Set myTable = ActiveDocument.Tables(1)
With myTable.Borders
 .InsideLineStyle = wdLineStyleSingle
 .OutsideLineStyle = wdLineStyleDouble
End With


  
With wdApp
 .Visible = True
  Set wdDoc = .Documents.Add
  With wdDoc
    Set wdTbl2 = .Tables.Add(Range:=.Range, NumRows:=2, NumColumns:=lCol)
    With wdTbl2
      .Rows(1).Range.Font.Bold = True
      .Rows(1).HeadingFormat = True
      .Cell(1, 1).Range.Text = "Header 1"
      If lCol > 1 Then .Cell(1, 2).Range.Text = "Header 2"
      If lCol > 2 Then .Cell(1, 3).Range.Text = "Header 3"
    End With
    With xlSht
      For r = First To Second
        If (r + 1) > wdTbl2.Rows.Count Then wdTbl2.Rows.Add

        If r = Second Then wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak

        For c = 1 To lCol
          wdTbl2.Cell(r + 1, c).Range.Text = xlSht.Cells(r, c).Text
        Next c
      Next r
    End With
  End With
End With

Set myTable = ActiveDocument.Tables(1)
With myTable.Borders
 .InsideLineStyle = wdLineStyleSingle
 .OutsideLineStyle = wdLineStyleDouble
End With

With wdApp
 .Visible = True
  Set wdDoc = .Documents.Add
  With wdDoc
    Set wdTbl3 = .Tables.Add(Range:=.Range, NumRows:=2, NumColumns:=lCol)
    With wdTbl3
      .Rows(1).Range.Font.Bold = True
      .Rows(1).HeadingFormat = True
      .Cell(1, 1).Range.Text = "Header 1"
      If lCol > 1 Then .Cell(1, 2).Range.Text = "Header 2"
      If lCol > 2 Then .Cell(1, 3).Range.Text = "Header 3"
    End With
    With xlSht
      For r = Second To lRow
        If (r + 1) > wdTbl3.Rows.Count Then wdTbl3.Rows.Add

        If r = Second Then wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak

        For c = 1 To lCol
          wdTbl3.Cell(r + 1, c).Range.Text = xlSht.Cells(r, c).Text
        Next c
      Next r
    End With
  End With
End With

Set myTable = ActiveDocument.Tables(1)
With myTable.Borders
 .InsideLineStyle = wdLineStyleSingle
 .OutsideLineStyle = wdLineStyleDouble
End With


Set wdTbl1 = Nothing: Set wdTbl2 = Nothing: Set wdTbl3 = Nothing: Set wdDoc = Nothing: Set wdApp = Nothing: Set xlSht = Nothing

I tried to remove the Set wdDoc = .Documents.Add from each iteration of the Set wdTbl block but that caused it to produce only table 3 and the page break at the end of it. I feel that it might be this part;

Set myTable = ActiveDocument.Tables(1)
With myTable.Borders
 .InsideLineStyle = wdLineStyleSingle
 .OutsideLineStyle = wdLineStyleDouble
End With

I think this might be leaving the full table selected and so it overwrites it with the next table, but I can’t figure out how to deselect it (if that even is the error!)