Need A Macro To Remove All Data Except The Red & Blue Data On The Left Side To Right Side

T this on a copy of your data, make sure there is no data off to the right anywhere.

Option Explicit

Sub ReduceData()
Dim LR As Long, rw As Long, cell As Range

LR = Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For rw = LR To 1 Step -1
    For Each cell In Range("A" & rw).Resize(, 16)
        If cell.Value <> "" Then
            If cell.Characters(1, 1).Font.ColorIndex <> 3 And cell.Characters(1, 1).Font.ColorIndex <> 5 Then cell = ""
        End If
    Next cell
    If Application.CountA(Rows(rw)) = 0 Then
        Rows(rw).Delete xlShiftUp
    End If
Next rw
Application.ScreenUpdating = True

End Sub

As it appears you've reached a conclusion, I've marked this thread SOLVED for you.FYI, this is done through the Thread Tools located above the first post in this thread. Thanks.