In search of VBA script

[ab500]

Ok, looking for a VBA macro here if anyone wants to help:
I have a book with 2 sheets in it. What I need to do is be able to
select a certain range, and be able to run a macro that copies it into
the other sheet adding labels at row A and pasting from B down. Then it
needs to add text to the columns beside the pasted rows.

Basicly this is what it should do:

Sheet1:

----column A
1 asdf
2 sdd
3 ffff
4 sdfdsfsdf
5 sdf
6 ssss
7 sd
8 asdf
9 ddd

Then lets say I select A3-A8 and run the macro this is what it should
output

Sheet2:

Title 1 Title 2 Title 3
ffff Random Text 1 Random Text 2
sdfdsfsdf Random Text 1 Random Text 2
sdf Random Text 1 Random Text 2
ssss Random Text 1 Random Text 2
sd Random Text 1 Random Text 2
asdf Random Text 1 Random Text 2

With all the cells of column B next to cells in A that have data in
them having "Random Text 1" in them and all of C having "Random Text 2"
in them.

The titles will stay the same and so will the text, needs to be done on
100 or so worksheets.

Thanks!