如何在Excel中使用VBA自动填充'x‘行

Sub AutoFillRows()
    Dim numRows As Integer
    numRows = InputBox("请输入要填充的行数：")
    
    If IsNumeric(numRows) Then
        numRows = CInt(numRows)
        If numRows > 0 Then
            Dim lastRow As Long
            lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
            
            Dim fillRange As Range
            Set fillRange = Range("A" & lastRow + 1 & ":A" & lastRow + numRows)
            
            fillRange.Value = "x"
        Else
            MsgBox "请输入一个大于0的数字！"
        End If
    Else
        MsgBox "请输入一个有效的数字！"
    End If
End Sub