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?
[TABLE="width: 192"]
<tbody>[TR]
[TD="class: xl64, width: 64"]Date[/TD]
[TD="class: xl65, width: 64"]Name[/TD]
[TD="class: xl65, width: 64"]Value[/TD]
[/TR]
[TR]
[TD="class: xl64, align: right"]1/4/2018[/TD]
[TD="class: xl65"]N001[/TD]
[TD="class: xl65, align: right"]20[/TD]
[/TR]
[TR]
[TD="class: xl64, align: right"]2/4/2018[/TD]
[TD="class: xl65"]N002[/TD]
[TD="class: xl65, align: right"]10[/TD]
[/TR]
[TR]
[TD="class: xl64"]　[/TD]
[TD="class: xl65"]N123[/TD]
[TD="class: xl65, align: right"]44[/TD]
[/TR]
[TR]
[TD="class: xl64, align: right"]3/4/2018[/TD]
[TD="class: xl65"]N123[/TD]
[TD="class: xl65, align: right"]20[/TD]
[/TR]
[TR]
[TD="class: xl64, align: right"]5/4/2018[/TD]
[TD="class: xl65"]N563[/TD]
[TD="class: xl65, align: right"]12[/TD]
[/TR]
[TR]
[TD="class: xl64, align: right"]6/4/2018[/TD]
[TD="class: xl65"]N215[/TD]
[TD="class: xl65, align: right"]9[/TD]
[/TR]
[TR]
[TD="class: xl64"]　[/TD]
[TD="class: xl65"]　[/TD]
[TD="class: xl65"]　[/TD]
[/TR]
[TR]
[TD="class: xl64"]Date[/TD]
[TD="class: xl65"]Name[/TD]
[TD="class: xl65"]Value[/TD]
[/TR]
[TR]
[TD="class: xl64, align: right"]1/4/2018[/TD]
[TD="class: xl65"]N001[/TD]
[TD="class: xl65, align: right"]20[/TD]
[/TR]
[TR]
[TD="class: xl64"]　[/TD]
[TD="class: xl65"]N002[/TD]
[TD="class: xl65, align: right"]10[/TD]
[/TR]
[TR]
[TD="class: xl64, align: right"]3/4/2018[/TD]
[TD="class: xl65"]N123[/TD]
[TD="class: xl65, align: right"]20[/TD]
[/TR]
[TR]
[TD="class: xl64"]　[/TD]
[TD="class: xl65"]　[/TD]
[TD="class: xl65"]　[/TD]
[/TR]
[TR]
[TD="class: xl64"]Date[/TD]
[TD="class: xl65"]Name[/TD]
[TD="class: xl65"]Value[/TD]
[/TR]
[TR]
[TD="class: xl64, align: right"]3/4/2018[/TD]
[TD="class: xl65"]N123[/TD]
[TD="class: xl65, align: right"]20[/TD]
[/TR]
[TR]
[TD="class: xl64"]　[/TD]
[TD="class: xl65"]N009[/TD]
[TD="class: xl65, align: right"]11[/TD]
[/TR]
[TR]
[TD="class: xl64, align: right"]5/4/2018[/TD]
[TD="class: xl65"]N563[/TD]
[TD="class: xl65, align: right"]12[/TD]
[/TR]
[TR]
[TD="class: xl64, align: right"]6/4/2018[/TD]
[TD="class: xl65"]N215[/TD]
[TD="class: xl65, align: right"]9[/TD]
[/TR]
</tbody>[/TABLE]

 

[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