Диаграмма Excel - ввод изменений после выполнения кода VBA

Question

У меня есть диаграмма, которая изменяет входные данные после запуска моего кода.

Sub copy_values_for_chart()
    With Worksheets("Working")
        'clear chart consolidated data
        LastRow = FindLastRow("Working")
        .Range("Y4:AE" & LastRow).Clear

        LastRow = FindLastRow("Working")

        'copy Eolus T-1 data
        .Range("Q4:W4").Copy
        .Range("Y4").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
        '.Range("Q3").Value = "Date"

        'calculate worst case P&L into col O
        For Line = 4 To LastRow
            If Range("O" & Line - 1).Value <> "" Then
                Range("o" & Line).Value = Application.WorksheetFunction.Min(Range("J" & Line & ":" & "N" & Line))
            End If
        Next Line

        'append rage data
        .Range("I4:O" & LastRow).Copy
        .Range("Y5").PasteSpecial Paste:=xlPasteValuesAndNumberFormats

        'append copy of static data
        .Range("A4 : G" & LastRow).Copy
        LastRow = FindLastRow("Working")
        .Range("Y" & LastRow + 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats


        'sort consolidated data by date asc
        LastRow = FindLastRow("Working")
        .Range("Y3:AE" & LastRow).Sort key1:=Worksheets("Working").Range("Y3"), order1:=xlDescending, Header:=xlYes

        'Application.CutCopyMode = False


    End With

    'update chart range data
    Set DataRange = Worksheets("Working").Range("Y3 : AE" & LastRow) 'Change last row to number to include. 

    Worksheets("sheet1").ChartObjects("Chart 1").Chart.SetSourceData Source:=DataRange

End Sub

Перед тем, как бежать, у меня есть 6 столбцов с левой стороны и данные с правой стороны.

После запуска кода я получаю 7 столбцов слева, включая дату.
И там, где старая дата была в случайном формате справа.

Кто-нибудь может мне помочь сохранить то, что должно быть после запуска моего кода?