Copy and Paste Table Row above Bookmarked Row

[Loss1003]

Copy and Paste Table Row above Bookmarked Row



Private Sub CommandButton2_Click()



ActiveDocument.Bookmarks("LCVenSect").Range.Select
Selection.Copy


ActiveDocument.Bookmarks("LCRemSect").Range.Select







I need help finishing the above code. I'd like to copy the bookmarked LCVenSect Row and then insert it above the bookmarked LCRemSect row.

Thank you.

[gmayor]

You are overthinking this :)


Dim oRow As Row
Set oRow = ActiveDocument.Bookmarks("LCVenSect").Range.Rows(1)
oRow.Range.Copy
oRow.Range.Paste

[Loss1003]

Thanks for your help Mucho appreciated.:hi:

I did get a run-time error when I tried adding the row.

I've attached the document I'm working on to help visualize the end goal.

Basically every time a user clicks the Add requestor section button. I want the heading row (Date and *Comment and Note Section*) to be copied and pasted above the Loss Control Remarks Section.

[Loss1003]

I noticed one error on my part the LCVenSect should read VendComSect. However I still need the line to be pasted above the LCRemSect

[gmayor]

In that case you need


Dim oRow As Row
Set oRow = ActiveDocument.Bookmarks("VendComSect").Range.Rows(1)
oRow.Range.Copy
Set oRow = ActiveDocument.Bookmarks("LCRemSect").Range.Rows(1)
oRow.Range.Paste
Set oRow = Nothing

[Loss1003]

Excellent and thank you.