Copy first 10 Cells in a column of filtered and sorted data to another sheet.

Something like the following which copies visible rows.

Application.Worksheets("Sheet1").Rows("1:10").Copy Destination:=Worksheets("Sheet2").Range("A1")

Select allOpen in new window

Thank for the responses.

Martin, I get a runtime error saying the copy and paste areas aren't the same size.

Norie, This works but I can't tell how I might add another column. For example, how would I modify this to also bring the "Type" (column A) to the Results sheet in column D?

Thanks!

swjtx99

You should use Norie's code. It seems to work perfectly.

Thank for the responses.

Martin, I get a runtime error saying the copy and paste areas aren't the same size.

Norie, This works but I can't tell how I might add another column. For example, how would I modify this to also bring the "Type" (column A) to the Results sheet in column D?......Never mind, I figured it out!

Thanks!

swjtx99

Hi Norie, Actually, I didn't figure it out. Can you tell me how to modify this to grab additional columns?

Thanks,

Hi Norie, Actually, I did figure it out. I started getting weird results and after hours of troubleshooting, I figured out that I had to sort the data before filtering it. Not sure why that matters but it did for me!

Thanks,

swjtx99