Label Mailmerge To Word - Too Many Labels/blank Records

I've created the following code to perform a mailmerge to word from my excel spreadsheet, but when I run the code I am having a couple problems, and I have no idea where to start looking to correct them. I set up the Mailmerge Main Document as a Word Template with the Mergefields already filled in.

The data is coming from the first sheet in my excel workbook which has the headers for each column in Row A, and the headers match the word Mergefields I entered in my word template. When I run the following code, even though there are currently only 60 or so rows of " records" the result in word is 34 pages of my 5160 Avery Labels. After it runs out of the actual records it creates 32 pages of blank labels which appear to be printing only the current date and appear to be pulling the data from blank cells in my "ActivityDate" column of my datasource.

Also, everytime I run the macro, I get a message saying that "a table in the document has become corrupted"


Sub MaiMerge()
Dim oApp As Word.Application
Dim oMainDoc As Word.Document
Dim wb As Excel.Workbook
Dim sDBPath As String
Dim sTPath As String

Set wb = ActiveWorkbook
sDBPath = wb.Path & "CalendarStickers.xls"
sTPath = wb.Path & "CalendarStickers.dot"

'Create a new Word Session
Set oApp = CreateObject("Word.Application")

'Start a new main document for the mail merge...............