Sub pdsch()
lr1 = Sheets("DATA_METRICS").Range("A1048576").End(xlUp).Row
Dim y1 As Integer
Application.ScreenUpdating = False
Sheets("Graphs_Rawdata").Visible = True
Sheets("DATA_METRICS").Visible = True
y1 = 22
For i = 3 To lr1
Sheets("DATA_METRICS").Select
If left(Cells(i, 1).Value2, 4) = "SNGL" Then
thru Cells(i, 1).Value2, y1
y1 = y1 + 23
End If
Next i
Sheets("SNGL-thpt-chart").Select
Sheets("Graphs_Rawdata").Visible = False
Sheets("DATA_METRICS").Visible = False
Application.ScreenUpdating = True
Cells.Select
Selection.Clear
Sheets("Main").Select
Range("o5").Select
ActiveCell.FormulaR1C1 = "COMPLETE"
Solved by Z. Q. in 21 mins