Question : VBA macro to convert date rows into columns

I have a data pulling from a Query which has 4 columns Date,Category,Description and total in Dataworksheet attached. I have to tranform Date rows into column (One column for each date) as shown in Report worksheet. Attached sample workbook.

Columns remains same in Data worksheet but rows will change , so I need a kind of dynamic macro .
This should be done only using macro . I cannot use any pivot table as a formatting issue .
I had the same question but posted at wrong place . I am totally new to macros

Answer : VBA macro to convert date rows into columns

Now the dates are also dynamic

Copy-of-sample-2-.xls (264 KB) (File Type Details) 

Dynamic dates addes