VBA Fidn text Insert rows until text reaches specific row

[mdfmkl]

Hi,

How would I go about finding the specific text "ACharge" in column A, and when it finds the text, insert rows until the text reaches row 20? The text always varies on a large number of spreadsheets and is always within the first 18 cells.

Any help would be much appreciated!
thanks

 

[btadams]

try this:

Sub ACharge()
Dim StartRow As String


    Range("A1").Select
    Cells.Find(What:="ACharge", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    StartRow = ActiveCell.Row
    Rows(StartRow & ":19").Insert shift:=xlDown
    
End Sub

 

[mdfmkl]

Thank you soooo much! it works perfectly!