将某列空白单元格所在的行删除#Excel VBA#

如题，预计打算把黄色标示的行全部一齐删除。
如果数据比较大达到几十万行的话，循环寻找A列为空则比较低效。
若用SpecialCells函数把空白单元格全部找到而且选中，则不需要循环，速度较快。

Sub Test ()
dim blk, blk2 as range 
dim m as Long
Range("A1:A" & lRow).SpecialCells(xlCellTypeBlanks).Select
    Set blk = Selection
    Set blk2 = Rows(Selection.Row)
    For Each m In blk
    Set blk2 = Union(blk2, Rows(m.Row))
    Next
blk2.Delete
End Sub
    

谢谢！