Option Explicit
Sub Demo()
Dim VArrLst As Object
Dim XVArrLst As Object
Dim oShp As Shape
Dim oChart As Chart
Dim oSeries As Series
Dim c As Range
Dim dstart As Date
With ActiveSheet
.Cells.Clear
For Each oShp In .Shapes
oShp.Delete
Next oShp
dstart = Date
For Each c In .Range("B6:P6")
c.Value = dstart
c.Offset(8).Value = WorksheetFunction.RandBetween(1, 8) / 10
dstart = dstart + 1
Next c
Set oShp = .Shapes.AddChart2(201, xlColumnClustered)
Set oChart = .Shapes(1).Chart
Set oSeries = oChart.SeriesCollection.NewSeries
Set VArrLst = CreateObject("System.Collections.ArrayList")
Set XVArrLst = CreateObject("System.Collections.ArrayList")
For Each c In .Range("B6:P6")
If Weekday(c.Value) <= 5 Then
VArrLst.Add Format(c.Value, "dd.mm.yyyy")
XVArrLst.Add c.Offset(8).Value
End If
Next c
oSeries.XValues = VArrLst.toarray
oSeries.Values = XVArrLst.toarray
End With
End Sub