How to copy a range of columns from sheet1 to sheet2 if the cell show a specific text

Hi,

Is there any VBA script can help to perform copy/paste data from colA to colJ (not the entire row) from Sheet1 to sheet 2 if the cell in colJ is shown in text "Delivered"?

Great thanks in advance!!