Delete the empty rows

Hi, I merge this document in a application and it prepopulates the information in the cells (please refer to attached file). If there is no information - then it comes as blank. I have received some line of codes from word forum with a purpose of deletingthe entire rows of the tables; if there is no information populated in the cells - meaning all (fillable cells in a row are blank then delete the entire row). However this code is giving the error of "cannot access the individual rows in this collection because the table has vertically merged cells". I would like to get the correct coding. Current code I have received is: Sub ScratchMacro() 'A quick macro scratch pad created by Greg Maxey Dim i As Long Dim lngCount As Long For i = [login to view URL](1).[login to view URL] To 1 Step -1 lngCount = [login to view URL](1).Rows(i).[login to view URL] * 2 + 2 If Len([login to view URL](1).Rows(i).[login to view URL]) = lngCount Then [login to view URL](1).Rows(i).Delete End If Next End Sub