Copy first 10 cells after sorting and filtering

[swjtx]

Hi, 

I have a spreadsheet that I have filtered and sorted and now I just want to copy the first visible 10 cells in column P to A2-A11 on another sheet. The problem is the first and last rows are subject to change depending on how it's filtered and sorted. 

Any help would be appreciated,

swjtx

[#2]

I should clarify I'm trying to do this in VB.

[#3]

No suggestions so far so maybe further clarification:
When filtered, I end up with row numbers like 3, 47, 48, 52, 79, etc. as the first 5 rows. If I try to copy rows 1-10, I get 1-10, not 3, 47, 48, 52, 79, etc. If I try to record a macro, It will give me the rows I am after but if I resort/refilter, it still gives me those rows and not the first visible 10 rows (cells). Thanks.