Try inserting above the line starting with "Else.."
With .Worksheets("PO Summary").Cells(x, 8)
    .Interior.ColorIndex = 3 'red
    .Font.ColorIndex = 6 'yellow
    .Font.Bold = True
End With