Dynamic Chart Creator

Sub CreateDynamicChart()
    Dim ws As Worksheet
    Dim chartWs As Worksheet
    Dim dataRange As Range
    Dim chartObj As ChartObject
    Dim lastRow As Long

    Set ws = ActiveSheet
    Set chartWs = Worksheets.Add
    chartWs.Name = "Charts_" & Format(Date, "mmyyyy")

    ' Define dynamic range
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    Set dataRange = ws.Range("A1:B" & lastRow)

    ' Create chart
    Set chartObj = chartWs.ChartObjects.Add(50, 50, 400, 300)

    With chartObj.Chart
        .SetSourceData dataRange
        .ChartType = xlLine
        .HasTitle = True
        .ChartTitle.Text = "Dynamic Data Chart"
        .HasLegend = True
    End With

    ' Create named range for dynamic updates
    ActiveWorkbook.Names.Add Name:="DynamicData", _
        RefersTo:="=" & ws.Name & "!$A$1:$B$" & lastRow

    MsgBox "Dynamic chart created!"
End Sub