There are several problems here.
InsertRows1 is decalred as an integer inputboxes return strings. if text is entered then it will generate type mismatch error.
If it is a string you are looking for, use something like:
strReply = InputBox("Message or instructions", "Title Bar Text")
this will return the string typed into the textbox of the input box dialog.
Anything equal to itself will not change the value, not sure what you are trying to do here.
InsertRows1 = InsertRows1
For manipulating tables in Word I can suggest reasding this article:
http://msdn.microsoft.com/en-us/library/aa537149(v=office.11).aspx[
^]
However, given the errors, you may want to learn more about VBA in general.
http://visualbasic.about.com/od/learnvba/a/aa021503.htm[
^]
[edit] Added VBA tutorial link for Word.