The following code may help you get started. It creates a chart for each
date, adjacent to the first record for the date. Assumes headings in row
1, and charts the data in columns C and D.

'================================
Sub CreateScatterChart()
Dim wsData As Worksheet
Dim rngDates As Range
Dim c As Range
Dim chObj As ChartObject
Dim lRow As Long
Set wsData = Sheets("Data")
lRow = wsData.Cells(Rows.Count, 1).End(xlUp).Row
Set rngDates = wsData.Range(wsData.Cells(2, 1), wsData.Cells(lRow, 1))

For Each c In rngDates
    If c.Value <> c.Offset(-1, 0).Value Then
      Set chObj = ActiveSheet.ChartObjects.Add _
          (Left:=c.Offset(0, 5).Left, Width:=375, _
            Top:=c.Top, Height:=225)
      With chObj.Chart
        .ChartType = xlXYScatterLines
        .SetSourceData Source:=c.Offset(0, 1).Resize(48, 3)
        .HasTitle = True
        .ChartTitle.Text = c.Value
        .SeriesCollection(1).Name = wsData.Range("C1").Value
        .SeriesCollection(2).Name = wsData.Range("D1").Value
      End With
    End If
Next c

End Sub
'===========================