Copy only date row into one excel sheet to another

Hello,

I have an excel macro-enabled excel file DayBook.xlsm with multiple headers. One header for one date.

Date      Particulars      Bill No.      Quantity      Cash Sale      Credit Sale      Cash Expenses      Expenses Through Cheque
1-Jan-14      Sales      447      2000                        
1-Jan-14      Sales      447      2000            185500.00            
1-Jan-14      Salaries                              68000.00      
1-Jan-14      Salaries                              15000.00      
                                          
Date      Particulars      Bill No.      Quantity      Cash Sale      Credit Sale      Cash Expenses      Expenses Through Cheque
2-Jan-14      Purchases                                    254850.00
                                          
Date      Particulars      Bill No.      Quantity      Cash Sale      Credit Sale      Cash Expenses      Expenses Through Cheque
3-Jan-14      Sales            300      88600.00                  


I wish to create a macro button so that when I click the button, it will copy only the date rows into another workbook contains only header as shown below. So that I will get only one header and no empty rows in between the date rows.

Date      Particulars      Bill No.      Quantity      Cash Sale      Credit Sale      Cash Expenses      Expenses Through Cheque

I have added mySales macro but it is not running
DayBook.xlsm