Sub My_Script()
'Modified 2/13/2020 8:57:16 AM EST
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Columns(1).Font.Color = vbBlack
Columns(9).EntireColumn.Delete
For i = 1 To Lastrow
Select Case Cells(i, 1).Value
Case "8", Not IsEmpty(Cells(i, 1))
Cells(i, 3).Font.Color = vbRed
Cells(i, 1).Font.Color = vbRed
Cells(i, 8).Font.Color = vbWhite
Cells(i, 8).Interior.Color = vbRed
Cells(i, 1).Font.Bold = True
Cells(i, 3).Font.Bold = True
Case "9", Not IsEmpty(Cells(i, 1))
Cells(i, 1).Font.Color = vbGreen
Cells(i, 3).Font.Color = vbBlack
Cells(i, 8).Font.Color = vbBlack
Cells(i, 3).Interior.Color = vbGreen
Cells(i, 8).Interior.Color = vbGreen
Cells(i, 1).Font.Bold = True
Cells(i, 3).Font.Bold = True
Cells(i, 8).Font.Bold = True
Case "7", Not IsEmpty(Cells(i, 1))
Cells(i, 1).Font.Color = RGB(51, 204, 51)
Cells(i, 3).Font.Color = RGB(51, 204, 51)
Cells(i, 8).Font.Color = RGB(51, 204, 51)
Cells(i, 1).Font.Bold = True
Cells(i, 3).Font.Bold = True
Case "6", Not IsEmpty(Cells(i, 1))
Cells(i, 1).Font.Color = RGB(47, 117, 181)
Cells(i, 3).Font.Color = RGB(47, 117, 181)
Cells(i, 8).Font.Color = RGB(47, 117, 181)
Cells(i, 3).Font.Bold = True
Cells(i, 8).Font.Bold = True
Case "5", IsEmpty(Cells(i, 2))
Cells(i, 1).Font.Color = vbBlack
Cells(i, 3).Font.Color = vbBlack
Cells(i, 3).Font.Bold = True
End Select
Next
Application.ScreenUpdating = True
End Sub