Split Rows to New Worksheets when every times the cell = Date

[ninoso]

I have a data in one worksheet like this, is it possible to search with the title to split the rows to new worksheets?

Date	Name	Value
1/4/2018	N001	20
2/4/2018	N002	10
	N123	44
3/4/2018	N123	20
5/4/2018	N563	12
6/4/2018	N215	9
Date	Name	Value
1/4/2018	N001	20
	N002	10
3/4/2018	N123	20
Date	Name	Value
3/4/2018	N123	20
	N009	11
5/4/2018	N563	12
6/4/2018	N215	9

<tbody>
</tbody>

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub SplitonHeader()
   Dim Rng As Range
Application.ScreenUpdating = False
   For Each Rng In Range("B:B").SpecialCells(xlConstants).Areas
      Sheets.Add , Sheets(Sheets.Count)
      Rng.CurrentRegion.Copy Range("A1")
   Next Rng
End Sub