Excel VBA根据某一列中的值选择是转移到下一个空行还是先保留一个空行

Sub MoveToNextEmptyRow()
    Dim lastRow As Long
    Dim rng As Range
    
    ' 定义要操作的工作表和列
    Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A:A")
    
    ' 获取最后一个非空行
    lastRow = rng.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    
    ' 判断最后一行的值是否为空
    If rng.Cells(lastRow).Value <> "" Then
        ' 如果最后一行的值不为空，则在下一行插入一个空行
        rng.Cells(lastRow + 1).EntireRow.Insert
    End If
    
    ' 将选定范围移动到下一个空行
    rng.End(xlDown).Offset(1).Select
End Sub