Se7enSquared
10/19/2019 - 4:37 PM

Loops: Delete blank cells

Delete any blank cells starting from bottom of range

deleteblankcells.vbs
content_copyfile_download
Sub ForEach_DeleteRows_BlankCells()
 
Dim n As Integer
For n = 10 To 1 Step -1
    If Range("a" & n).Value = "" Then
        Range("a" & n).EntireRow.Delete
    End If
Next n
 
End Sub