Sub Macro1()

Dim wDoc As Document
Dim oRng As Range
Dim i As Integer
    Set wDoc = wApp.Documents.Open("C:\Users\alex.olczak\Document s\Proposal Automation\ERS Proposal\ERS Proposal Template Edit\PeopleParagraphMacro\TableTest.docx")
    Set oRng = wDoc.Range
    With oRng.Find
        Do While .Execute(FindText:="H", MatchCase:=True)
            If oRng.Information(wdWithInTable) Then
                oRng.HighlightColorIndex = wdYellow
                i = oRng.Rows(1).Index 'This line is not required to copy the row
                MsgBox i 'This line is not required to copy the row
                oRng.Rows(1).Range.Copy 'The row is copied to the clipboard
                Exit Do        'Find only the first instance
            End If
        Loop
    End With
    'Do something with the copied row e.g.
    Set oRng = wDoc.Range 'set a range to the document
    oRng.Collapse 0 'collapse the range to its end
    oRng.Paste 'Paste the found row at then end of the document
lbl_Exit:
    Exit Sub
End Sub