根据另一个单元格值复制和粘贴多个范围

Question

我正在尝试复制并将一系列单元格从一个工作表（“范围”）插入另一个（“主”）。所需的单元格范围由包含位于“主”工作表中的另一单元（例如“KCC”）中的字符串的单元确定。单元格范围将插入“Main”上的参考单元格下方。我想在“Main”上为大量单元格继续此过程。因此，循环vba宏将引用字符串，确定需要复制的单元格范围，然后将该范围插入参考单元格下方，最后继续到下一个参考单元格再次执行此操作，直到没有更多参考单元格为止参考。我发现这个代码只插入一个空白行但是如何插入必要的范围？

Sub test()
Dim c As Range
For Each c In Range("B2:B1339")
    If c.Value Like "KCC" Then
    c.Offset(1, 0).EntireRow.Insert
    ElseIf c.Value Like "KCP" Then.
    c.Offset(1,0).EntireRow.Insert
    ElseIf....
    etc.
    End If
Next c
End Sub

那么基本上我如何用参考单元格确定的必要范围替换插入行？