在Excel Vba中选择最后8行

Sub SelectLast8Rows()
    Dim LastRow As Long
    
    With ActiveSheet
        LastRow = .UsedRange.Rows.Count
        .Range("A" & LastRow - 7 & ":A" & LastRow).Select
    End With
End Sub

Sub SelectLast8Rows()
    Dim LastRow As Long
    
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Range("A" & LastRow - 7 & ":A" & LastRow).Select
    End With
End Sub

Sub SelectLast8Rows()
    Dim LastRow As Long
    
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Range(.Cells(LastRow - 7, 1), .Cells(LastRow, 1)).Select
    End With
End Sub