Macro para eliminar filas vacías de base de datos filtrada

Necesito eliminar las filas vacías de una base de datos filtrada. Adjunto código que uso pero no funciona. Solo funciona cuando no filtro la base de datos.

Agradezco de antemano por su apoyo.

Sheets("Report"). Activate
Set a = Sheets("Report")
uf = a.Range("A" & Rows.Count).End(xlUp).Row
For x = uf To 2 Step -1
If a.Cells(x, 1) = Empty Then Cells(x, 2).EntireRow.Delete
Next x