I need to create a macro that will do the following:
Sheet1 containg data (range A:J)
In sheet2 I need macro to use
ROW 1
Column A [ ="VICE" ]
Column B [ ="I" ]
Column C [ blank ]
Column D [
=IF(Sheet1!I1="B","B1",IF(AND(Sheet1!I1="C",Sheet1 !J2="C*"),"C1","NIL")) ]
Column E [ a given date ]
Column F [ =Sheet1!F1 ]
Column G [ ="CONTROL " &Sheet1!E1 ]
Column H [ =0 ]

ROW 2
Column A [ ="ACTION" ]
Column B [ ="#" ]
Column C ["#" ]
Column D [ =Sheet2!F1 ]
Column E [ =Sheet2!G1 ]
Column F [ blank ]
Column G [ blank ]
Column H [ blank ]

row 1 & 2 to repeat for the entire sheet1 that is in row 3 info fro sheet1
row 2 would be etracted.

Sheet3
1A [ ="CONTROL " &Sheet1!E1 ]
2A [ blank ]
3A [ ="P " &Sheet1!B1 ]
4A [ ="P " &Sheet1!C1 ]
5A [ ="P " &Sheet1!G1 ]
6A [ ="P " &Sheet1!H1 ]
7A [ ="P " &Sheet1!A1 ]
8A TO RETREIVE INFO FROM Sheet1!E2
AND SO ON