不确定如何根据筛选列中可见单元格的数量将行插入到工作表中

Sub InsertRowsBasedOnVisibleCells()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim visibleCount As Integer
    Dim i As Integer
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置要筛选的列范围
    Set rng = ws.Range("A1:A10")
    
    ' 清除之前的筛选
    ws.AutoFilterMode = False
    
    ' 进行筛选
    rng.AutoFilter Field:=1, Criteria1:="可见"
    
    ' 计算可见单元格的数量
    visibleCount = rng.SpecialCells(xlCellTypeVisible).Count
    
    ' 插入行
    For i = 1 To visibleCount
        ws.Rows(rng.Offset(1).SpecialCells(xlCellTypeVisible).Row).Insert Shift:=xlDown
    Next i
    
    ' 清除筛选
    ws.AutoFilterMode = False
End Sub