Solved: Transfer separate ranges to one range

[pcsparky]

I can use the 'End(xlDown).Row' code to get data from a number of rows in a particular column but not sure how to achieve the following.

Sheet 1 contains data in A1:A10, A21:A30 and A41:A50

I want to get the data from all of these ranges and place it on Sheet 2 starting at A1.

Would it be best to use a loop to copy the first range to A1 then use 'End(xlDown).Row' to find the next place to start witht he next range?

[Bob Phillips]

Record a macro that copies the whole column, thn filter the data on sheet 2, pick out blanks, and delete them.