Untitled

Option Explicit

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("B2:W48").Select
    ActiveWorkbook.Worksheets("Filtered_Data").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Filtered_Data").Sort.SortFields.Add2 Key:=Range( _
        "I3:I48"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Filtered_Data").Sort
        .SetRange Range("B2:W48")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
Sub Macro2()
'
' Macro2 Macro
'

'
    ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
    ActiveChart.SetSourceData Source:=Range("Filtered_Data!$I$2:$I$58")
    ActiveChart.FullSeriesCollection(1).XValues = "=Filtered_Data!$E$3:$E$58"
    ActiveChart.ChartTitle.Text = "blabla"

    Range("L27").Select
End Sub