Filter value based on list and paste on new sheet with one blank row between each value

Hello,

I am trying to perform a filtering operation based on values in another sheet and I cannot determine a correct VBA code.

On sheet account number, there is account number
On sheet summary, this is a global database
Expected Output is the result I would like to have

The VBA should be able to filter in column A of sheet "Summary" the values as from row 4 found in sheet "Account Number" and then paste it on sheet "Expected Output" as from row 6. After each ending row of value, we should have a blank line.

I am trying to use a dynamic approach rather than static when performing the filter, for instance not using "Criteria1:="22221".

Can you please help, attached is the excel workbook.

Thank you

I have attached the sample workbook.

Thank you

Hello Mumps1,

Thank you for help and support, the code worked perfectly