Hide full row if cells are merged in word table

Question

I have a file with multiple tables and by using the below code I am trying to access the rows which have specific terms using an array.

I successfully select the whole rows and apply hidden formatting on it but it selects only the first rows of the merged cell, not the whole row.

Below is the result that I am getting.

But I am seeking a result that will hide all content in 4 columns but I am unable to find a solution for the same.

Sub test()
Dim SearchArr() As Variant, Cnt As Integer, Arrcnt As Integer
Dim WrdApp As Object, FileStr As String, WrdDoc As Object, aRng As Range
Dim TblCell As Variant
Set WrdApp = CreateObject("Word.Application")
WrdApp.Visible = True

'********** change address to suit
FileStr = "C:\Users\krishna.haldunde\Downloads\New folder\Episode_0_intro_UEFA_v1_EN.docx"
Set WrdDoc = WrdApp.Documents.Open(FileStr)

SearchArr = Array("Slide Notes")
'loop tables
For Cnt = 1 To WrdApp.ActiveDocument.Tables.Count
'loop search word
For Arrcnt = LBound(SearchArr) To UBound(SearchArr)
'loop through table cells
For Each TblCell In WrdApp.ActiveDocument.Tables(Cnt).Range.Cells


Set aRng = TblCell.Range

'If TblCell.RowIndex = WrdApp.ActiveDocument.Tables(Cnt).Rows.Count Then Exit For

If InStr(LCase(aRng), LCase(SearchArr(Arrcnt))) Then

aRng.Rows.Select

WrdApp.Selection.Font.Hidden = True
WrdApp.Selection.Range.HighlightColorIndex = wdBlue
'WrdApp.Selection.Range.Next.Rows.Select
'WrdApp.Selection.Font.Hidden = True
'WrdApp.Selection.Range.HighlightColorIndex = wdBlue


End If

Next TblCell
Next Arrcnt
Next Cnt

End Sub

Can anyone help me out to understand where I am doing the issue so, I can rectify it?