全ての行を探索して、指定した列のセルに空白が含まれている場合に、その行を削除するExcelマクロ

下記の例は、12列目（L列）のセルに空白が含まれている行を全て削除する。
空白が含まれているセルは定数emptyColで指定する。

Sub deleteEmptyRow()
  Dim lRow As Long
  ' 空白セルの有無が探索されるカラム
  Const emptyCol = 12
  Dim i As Long
    lRow = Cells(Rows.Count, 1).End(xlUp).Row
    Application.ScreenUpdating = False
    For i = lRow To 2 Step -1
        If Cells(i, emptyCol).Value = "" Then
            Range(i & ":" & i).Delete
        End If
    Next i
    Application.ScreenUpdating = True
End Sub