Here is the info.
Market = Application.InputBox("Enter your market Example: test")
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Firstrow = Cells(Rows.Count, "A").Top(xlDown).Row
Selection.AutoFilter Field:=5, Criteria1:="Market"
Range(("D1" & Firstrow), ("D1" & lastrow)).Select
Range(("D1" & Firstrow), ("D1" & lastrow)).Activate
Charts.Add
ActiveChart.ChartType = xlAreaStacked
ActiveChart.SetSourceData Source:=Sheets("3rd Quarter Daily
(07)").Range(( _
"D1" & Firstrow), ("D1" & lastrow)), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:= _
"3rd Quarter Daily (07)"