Top 10 Visible cells copy and paste Vba

[harinsh]

Hi Team,

Could you please help me with code for exact requirement ..I have data from column B to P and need to filter on column P say "One" and need to copy only data from column B to Column D -top 10 visible cells (excluding header which is there at row 5) and need to paste it in different sheet where I define...

I could lots of codes but not clear with my requirement.

Any one help would appreciate.

Thank you,