Excel VBA copy data from one sheet to another

Hi,
I have Excel workbook..which contains two sheets...
Namely sheet1 and sheet2

Now i have data in sheet1 as:::
Category: Question:    Answer1: Answer2: Answer3 Answer4: Answer:
Any      any_question? someans  someans  someans someans  Answer2
Any      any_question? someans  someans  someans someans  Answer3
Any      any_question? someans  someans  someans someans  Answer1
.................................................................


Need to copy the data in Sheet1 which is in above format to Sheet2 in the format mentioned below:::

Category: Question:  Answers: Answer:
Any
        any_quesn?
                    someans
                    someans  True
                    someans
                    someans

Any
        any_quesn?
                    someans
                    someans  True
                    someans
                    someans