Collection of Data from different ranges to one range

Dear Masters, Salute to all of you..

I am making daily sale report as in my sheet attached..daily i have to copy and paste down and fill it up as per my sale..

But i also want that my this all data should go to my sheet name" My requirement" collectively without any space but date should appear infron of each day..

Hope you will understand when you will open my sheet..

Thanks in advance for any help..

SAMPLE.xlsx

This little macro will do it for you, just click the button at the top to update the MY REQUIREMENT sheet with any new items. New items will be added to the bottom of the existing data.

Option Explicit

Sub CreateReport()
Dim wsOut As Worksheet, NR As Long
Dim RNG As Range, Item As Range, vFIND As Range

Set wsOut = Sheets("MY REQUIREMENT")
Set RNG = Sheets("DAILY SALE ENTRY").Range("B:B").SpecialCells(xlConstants, xlNumbers)
NR = wsOut.Range("C" & wsOut.Rows.Count).End(xlUp).Row + 1

Application.ScreenUpdating = False
On Error Resume Next

With wsOut
    For Each Item In RNG
        Set vFIND = wsOut.Range("C:C").Find(Item, LookIn:=xlValues, LookAt:=xlWhole)
        If Not vFIND Is Nothing Then
            Set vFIND = Nothing
        Else
            Item.Resize(, 7).Copy wsOut.Range("C" & NR)
            Item.End(xlToRight).End(xlUp).Copy wsOut.Range("J" & NR)
            NR = NR + 1
        End If
    Next Item
End With

Application.ScreenUpdating = True
End Sub