Deleting Empty Cells in a LIST

Hi, Try this:-

Sub MG05May19
Dim rCount As Long, r As Long, Rng As Range
Set Rng = Range(Range("B1"), Range("B" & Rows.count).End(xlUp)).Resize(, 31)
 With Rng
        rCount = .Rows.count
        For r = rCount To 1 Step -1
            If Application.CountA(.Rows(r)) = 0 Then
                .Rows(r).EntireRow.Delete
            End If
        Next r
    End With
End Sub

Regards Mick