Thread: Trouble with adding dynamic chart

I am using the code below to add a chart using a dynamic row length. However teh chart keeps skipping over the data in column B and does not include it in the chart. Also, the chart begins with a date that is not in the data range-how can I make that correspond to the data range?
Any ideas on why column B is being skipped?

Code:

Dim charrange As Range
Set charrange = Range("a4:a65536")
Dim lastcharrow As Long
With charrange
    lastcharrow = charrange.Find("*", [a4], xlValues, xlPart, xlByRows, xlPrevious).Row
End With
Range(Cells(3, 1), Cells(lastcharrow, 6)).Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=ActiveSheet.Range(Cells(3, 1), Cells(lastcharrow, 6))
    ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
    ActiveChart.SeriesCollection(1).Delete
    With ActiveChart.Parent
        .Left = 100
        .Width = 500
        .Top = 50
        .Height = 300
    End With

can you post example of your data layout.