I'm having trouble creating 2 seperate tables in word.

My code is writing the correct data i want into the correct cells, but the problem is that the 2 seperate tbels i need are merged to form one table.

How do i seperate the tables? Heres' my code as it is for the moment:

----------------------------------------------------------------------
Set rng2 = WordApp.ActiveDocument.Content
rng2.Collapse Direction:=wdCollapseEnd

'Create the table.
Set titleTable = WordApp.ActiveDocument.Tables.Add(rng2, 2, 2)

'format table
titleTable.AutoFormat Format:=wdTableFormatColorful2, _
ApplyBorders:=True, ApplyFont:=True, ApplyColor:=True

With titleTable

.Borders.InsideLineStyle = wdLineStyleNone
.Borders.OutsideLineStyle = wdLineStyleNone

'creates columns
.Columns(1).Width = InchesToPoints(3)
.Columns(2).Width = InchesToPoints(3)

'creates rows
.Rows(1).Height = InchesToPoints(0.25)
.Rows(2).Height = InchesToPoints(0.25)

'header row text
.Cell(1, 1).Range.InsertBefore Text:="Branch Name: "
.Cell(1, 2).Range.InsertBefore Text:="Branch Code: "

'question 1
.Cell(2, 1).Range.InsertBefore Text:="Size: "
.Cell(2, 2).Range.InsertBefore Text:="Style: "

End With

'table parameters

Set rng = WordApp.ActiveDocument.Content
rng.Collapse Direction:=wdCollapseEnd

lBaseRows = 10
lBaseCols = 3

'Create the table
Set distTable = WordApp.ActiveDocument.Tables.Add(rng, lBaseRows, lBaseCols)

'format table
'distTable.AutoFormat ApplyBorders:=True, ApplyFont:=True

With distTable
.Borders.InsideLineStyle = wdLineStyleSingle
.Borders.OutsideLineStyle = wdLineStyleSingle

'creates columns
.Columns(1).Width = InchesToPoints(2)
.Columns(2).Width = InchesToPoints(2)
.Columns(3).Width = InchesToPoints(2)

'creates rows
.Rows(1).Height = InchesToPoints(0.25)
.Rows(2).Height = InchesToPoints(0.5)

'header row text
.Cell(1, 1).Range.InsertBefore Text:="Position:"
.Cell(1, 2).Range.InsertBefore Text:="Distribution Code:"
.Cell(1, 3).Range.InsertBefore Text:="Picking Quantity:"

'question 1
.Cell(2, 1).Range.InsertBefore Text:="Position"
.Cell(2, 2).Range.InsertBefore Text:=varDist_Primary_1
.Cell(2, 3).Range.InsertBefore Text:="Picking Quantity"
End With
-----------------------------------------------------------------

Thanks in advance

Wes