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.