Graphing dynamic range with vba

I couldn't figure out which dates you wanted to chart. So I just charted all the dates that had data (E5:M7) in your example workbook. The dates should appear on the x axis.

Sub NewGraph_A4()
 
    ActiveSheet.ChartObjects.Delete
    
    With ActiveSheet.ChartObjects.Add _
        (Left:=150, Width:=800, Top:=150, Height:=400)
        
        With .chart
            
            '.SetSourceData Source:=Range("wkly_alabaster_b", "wkly_alabaster_c")
            .SetSourceData Source:=Sheets("Sheet1").Range("E5:M7"), PlotBy:=xlRows
                        
            .ChartType = xlLine
            .Axes(xlCategory).TickLabels.Orientation = xlUpward
            .Legend.Font.Size = 13
            
            With .Axes(xlValue)
                .MajorUnit = 0.1
                .MinorUnit = 0.1
                .MaximumScale = 1
            End With
            .Axes(xlValue, xlPrimary).TickLabels.Font.Size = 15
            .Axes(xlCategory, xlPrimary).TickLabels.Font.Size = 15
            
            .SeriesCollection(1).Name = "Physical"
            .SeriesCollection(2).Name = "Economic"
            
            .HasTitle = True
            With .ChartTitle
                .Text = Worksheets("Sheet1").Range("A4").Value
                .Font.Name = "Calibri"
                .Font.FontStyle = "Regular"
            End With
            
        End With
        
    End With
     
End Sub

Thank you for the reply. There is one more thing I need to mention.
The ranges are dynamic and you can see that when you go to Name Manager and see what the named ranges are.
There is a lot going on in terms the Offset function. When you change the number in the top leftmost cell in the sheet, the number of cells in the range is selected accordingly.
I cannot simply use the correction above because it's is very important that I keep that dynamic functionality.

Here are the instructions I used- http://peltiertech.com/Excel/Charts/DynamicLast12.html