I’m trying to remove a line/lines before some images that are inside a row in more than one table in document.

The part of the table looks like this and line above the images is shown by the black arrow.

This is my current code but is not removing anything

Sub RemoveLine()
Dim oTable As Table
Dim oRng As Range
Dim oFind As Range
   
Application.ScreenUpdating = False
    For Each oTable In ActiveDocument.Tables
    
        Set oRng = oTable.Range
        Set oFind = oTable.Range
        
        With oRng.Find
            Do While .Execute(FindText:="[^13^l]{1,}", MatchWildcards:=True)
                If oFind.InRange(oRng) Then
                    oFind.Text = ""
                End If
            Loop
        End With

    Next oTable

Application.ScreenUpdating = True
Set oTable = Nothing
Set oRng = Nothing

End Sub