Find row with specific text and copy the 10 rows below to another sheet

[babyfufu]

Hi, I would like to extract data from a excel table by vba: if ws1.cell (i,1) = "AAA" then copy ws.1.cell(i+1,1) to ws.1.cell(i+9,1) to column A of ws.2. Please help, thanks.

[Sintek]

Sub sintekJ3v16()
Dim X
With Sheet1
    X = Application.Match("AAA", .Columns(1), 0)
    .Range("A" & X + 1).Resize(10).Copy Sheet2.Range("A1")
End With
End Sub