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

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.