1. UsedRange
   ActiveSheet.UsedRange.select
   Selection.Rows.count
   
2. 有内容区域的最近空白行
   Dim Lrow As Long
   Lrow = Range("B" & Cells.Rows.Count).End(xlUp).Row - 1
3. 自动筛选
   'Rows("3:3").Select
   'Selection.AutoFilter
   'Selection.AutoFilter Field:=7, Criteria1:="="
   
   
   'Range("A3").Select
   'ActiveCell.Offset(1, 0).Select
   'Selection.EntireRow.Select
   'Range(Selection, Selection.End(xlDown)).Select
   'Selection.Delete shift:=xlUp
   'Selection.AutoFilter Field:=7
   'ActiveWindow.SmallScroll Down:=9
   
   Dim Lrow As Long
   Dim i As Integer
   Dim AreaAll As Range
   Lrow = ActiveSheet.Columns(1).Cells(Cells.Rows.Count).End(xlUp).Row
   Rows(Cells.Rows.Count).Select
   For i = 4 To Lrow - 1
   If Range("A" & i) = "" Then
   Application.Union(Rows(i), Selection).Select
   End If
   Next i
   Selection.Delete shift:=xlUp
   Cells(4, 1).Select