VBA: Как найти текст и добавить строку и работать под ним

Question

1. Мне нужно найти диапазон (ячейку), который содержит определенный текст.
2. Мне нужно добавить строки под ним
3. Мне нужно скопировать сводную таблицу в добавленные строки

Может ли кто-нибудь помочь мне с этим?

Sub AddDashes()

Dim SrchRng As Range, cel As Range

'Text is in column A

Set SrchRng = Range("A1:A50000")

'I search for the text in column A

For Each cel In SrchRng
    If InStr(1, cel.Value, "TEXT") > 0 Then

'How to get the "address" of the range once it finds "TEXT" and add rows below it?


    End If
Next cel

End Sub