Help creating macro that if cell contains x copy and paste that row +11 rows prior to new sheet

[apesgrapes]

I've found several macros and edited several that allow you to copy and paste to separate sheet if a cell contains certain content. However what I need is one that will search column A for a cell containing a string of text, then copy and paste rows containing that text, as well as the 11 rows preceding, to a different sheet.

My experience involves mostly recording macros and editing as needed, but I cannot figure out how to get it to copy additional rows in addition to the row containing the searched text.

Any help is appreciated!

 

[Fluff]

Hi & welcome to the board
How about

Sub FindCopy()

   Dim Fnd As Range
   
   With Sheets("[COLOR=#ff0000]Sheet1[/COLOR]")
      Set Fnd = .Columns(1).Find("Cat", , , xlPart, , , False, , False)
      If Not Fnd Is Nothing Then
         Fnd.Offset(-11).Resize(12).EntireRow.Copy Sheets("[COLOR=#ff0000]Sheet2[/COLOR]").Range("A" & Rows.Count).End(xlUp).Offset(1)
      End If
   End With
End Sub

Change sheets names in red to suit