Insert rows in a table uptill the page bottom

[kattai]

Is there a way to write vba code to insert rows in a table up to the bottom of the current page. Thank you

[Aussiebear]

Is there a way to write vba code to insert rows in a table up to the bottom of the current page.

By ".... up to the bottom of the current page" are you referring to the last used row of the sheet

[kattai]

By ".... up to the bottom of the current page" are you referring to the last used row of the sheet

Yes

[gmaxey]

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oTbl As Table
Dim oRng As Range
  Set oTbl = Selection.Tables(1)
  Set oRng = oTbl.Range
  oRng.Collapse wdCollapseEnd
  oRng.Move wdParagraph, 1
  Do
    oTbl.Rows.Add
  Loop While oTbl.Rows.Last.Range.Information(wdActiveEndAdjustedPageNumber) = oRng.Information(wdActiveEndAdjustedPageNumber)
lbl_Exit:
  Exit Sub
End Sub

[Aussiebear]

My apologies kattai, your initial post was correct.

[kattai]

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oTbl As Table
Dim oRng As Range
  Set oTbl = Selection.Tables(1)
  Set oRng = oTbl.Range
  oRng.Collapse wdCollapseEnd
  oRng.Move wdParagraph, 1
  Do
    oTbl.Rows.Add
  Loop While oTbl.Rows.Last.Range.Information(wdActiveEndAdjustedPageNumber) = oRng.Information(wdActiveEndAdjustedPageNumber)
lbl_Exit:
  Exit Sub
End Sub

Thank you Greg. It works. I appreciate your timely support.