Creating chart on one sheet based on dynamic auto filter in another sheet - returning incorrect range - excel

Question

I have an excel workbook with multiple sheets. The first sheet is a dashboard on which I display charts based on data from other sheets.
I have a sheet called Daily Score. In it are three columns:
User ID, Sum_PointsAdded, Day_Timestamp
On any given day, a user can have a row inserted with the points they added and the date added.
The header row starts on A3 and has auto filter applied.
On the dashboard I have created a button that asks the user to insert a UserID via an input box. Based on that data, I filter the data to show only that user's score.
A sample result would be:
User ID Sum_PointsAdded Day_Timestamp
777 38 28/3/19
777 11 20/3/19
777 44 2/4/19
777 24 13/5/19
The chart I add is a line chart and should show only one line (and one entry type in the legend).
The X axis is the date and the Y axis is the score.
If I manually use the filter on the Daily Score sheet, and then I click the button on the Dashboard sheet and request the filter, the chart appears OK. However, if I simply click the chart button on the dashboard and don't fiddle with the filter, the chart I get has a line for Sum_PointsAdded and a line for Day_Timestamp (that I shouldn't get) and no line for score.
The legend has four entries: Score, Sum_PointsAdded, Day_Timestamp and Series4
I'm assuming I'm doing something wrong with the filter or the definitions of the range for the chart. However I do have another chart on the dashboard sheet with the exact same set up (just with two lines on the chart), and there I have no problem.
I've tried changing the location of the range definitions but it doesn't seems to work.
Note: these are dynamic ranges.
Here's my code:
Public Sub CreateDailyScoreChart()
Dim WS As Worksheet
Dim WS2 As Worksheet
Dim Rng1 As Range
Dim Rng2 As Range
Dim myValue As Variant
Dim LastRow As Long
Dim FirstRow As Long
Application.ScreenUpdating = False
Set WS = ThisWorkbook.Sheets("Daily Score")
Set WS2 = ThisWorkbook.Sheets("Dashboard")
With WS
'set last row for entire table in order to define range
LastRow = .Range("A" & Rows.Count).End(xlUp).Row
Set Rng1 = .Range("A3:A" & LastRow)
Set Rng2 = .Range("C3:C" & LastRow)
End With
'Input UserID
myValue = InputBox("Insert UserID")
'Filter based on UserID, for this month decending
Sheets("Daily Score").Activate
On Error Resume Next
ActiveSheet.ShowAllData
Rng1.CurrentRegion.AutoFilter Field:=1, Criteria1:="=" & myValue
On Error GoTo 0
With WS.AutoFilter.Sort
.SortFields.Clear
.SortFields.Add2 Key _
:=Rng2, SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Rng2.AutoFilter Field:=3, Criteria1:=13, _
Operator:=11, Criteria2:=0, SubField:=0
With WS
FirstRow = .AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Row
'reset last row for filtered table
LastRow = .Range("A" & Rows.Count).End(xlUp).Row
End With
'Delete existing chart if it exists
On Error Resume Next
With WS2
.ChartObjects("DailyScore").Activate
.ChartObjects("DailyScore").Delete
End With
On Error GoTo 0
'Add new chart
'ThisWorkbook.Sheets("Dashboard").Shapes.AddChart2(322, xlLineMarkers).Select
WS.Activate
WS.Shapes.AddChart2(332, xlLineMarkers).Select
Dim Chart As Chart
Set Chart = ActiveChart
'Defining X and Y Axis values
Dim xRng As Range
Dim vRng1 As Range
With WS
Set xRng = .Range(.Cells(FirstRow, 3), .Cells(LastRow, 3))
Set vRng1 = .Range(.Cells(FirstRow, 2), .Cells(LastRow, 2))
End With
'Adding series 1
Chart.SeriesCollection.NewSeries
Chart.FullSeriesCollection(1).XValues = xRng
Chart.FullSeriesCollection(1).Values = vRng1
Chart.FullSeriesCollection(1).Name = "Score"
Chart.SetElement (msoElementLegendBottom)
Chart.SetElement (msoElementChartTitleAboveChart)
Selection.Caption = "User " & myValue & " Daily Score This Year"
Chart.Parent.Name = "DailyScore"
Chart.ChartArea.Select
Chart.Parent.Cut
Sheets("Dashboard").Select
Sheets("Dashboard").Activate
Range("K20").Select
ActiveSheet.Paste
Application.ScreenUpdating = True
End Sub

Answer 1

Writing this in answer mode to help others:
Following the Set Chart = ActiveChart
add ActiveChart.ChartArea.ClearContents
Chart content should be emptied and chart will come back with desired result after the code completes its run.