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