Sub 选择第5行开始所有数据行A()
    Dim i%
    i = Cells.Find("*", SearchOrder:=xlByRows, LookIn:=xlValues, SearchDirection:=xlPrevious).EntireRow.Row
    Rows("5:" & i).Select
End Sub
Sub 选择第5行开始所有数据行B()
    Rows("5:" & Cells.Find("*", , , , 1, 2).Row).Select
End Sub

Sub 选择第5行开始所有数据行A()
    Dim i%
    i = Cells.Find("*", SearchOrder:=xlByRows, LookIn:=xlValues, SearchDirection:=xlPrevious).EntireRow.Row
    Rows("5:" & i).Select
End Sub
Sub 选择第5行开始所有数据行B()
    Rows("5:" & Cells.Find("*", , , , 1, 2).Row).Select
End Sub