Copy, sort, remove doubles, Cartesian product

[kleanthis1]

Hello,


After running several macros (more than 10) I come up with data like the ones that you see on the attached file. The output data is not the same every time, meaning that I may have 10 records one day, and 100 records on another day.

What I want is:

A macro or VBA that does all of the following:

1) Copy ALL from column A to a new sheet8 at column H.
2) Sort (ascending) and keep one number if there are doubles (remove doubles if any) at H column. If I have 55 twice, I want only one to be kept.
3) If it is possible I want the doubles to be shown on the next column I because they play significant role later in other macros
4) copy all the data between degrees 0 to 70 to the previous column G
5) Copy the same data beneath on column G but multiplied by minus. If 5 degrees were copied from H column, the G column will have 10 degrees. 5 positive and 5 negative.
6) at H column all the degrees to be copied beneath but multiplied by minus.
7) at A column I want the Cartesian Product of all the data from G and H column.

That's all!!!! Any help will be much appreciated !!!! Thank you in advance!!!