Word's Find/Replace routine will not find empty paragraphs before a table. You need a different approach for that. For example:
Code:
Sub Demo()
Dim Tbl As Table, Rng As Range
On Error Resume Next
For Each Tbl In ActiveDocument.Tables
Set Rng = Tbl.Range.Characters.First.Previous
Rng.MoveStartWhile vbCr, -1
Rng.Delete
Next
End Sub