在find中的变量中插入x行

Question

我正在尝试根据特定搜索词组中的#sn来插入可变数量的行。

示例：如果A列中的单元格包含"(4 SHEETS)"，则下面将复制3行（因此总共4行）。然后继续寻找下一场比赛。

这是我到目前为止所做的。

Sub ExpandRows()
Dim ws As Worksheet
Dim aCell As Range
Dim i As Integer

Set ws = ThisWorkbook.Sheets("test")

With ws
    Set aCell = .Columns(1).find(What:=i & " SHEETS)", LookIn:=xlValues, _
                LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                MatchCase:=False, SearchFormat:=False)
    If Not aCell Is Nothing Then
        aCell.EntireRow.Copy
        aCell.Offset(i).EntireRowInsert Shift:=xlDown
    End If
End With
Application.CutCopyMode = False
End Sub

代码结果无效