Count cells in row based on cell value, highlight row if wrong number or cells.

I added the functionality for copying and pasting the first 20 cells from each 'incomplete' row to a separate sheet.
I have also added some comments to the code that may be useful in updating it should the need arise.

Sub sample()
Dim Rw As Long, markCopy As Boolean
Sheets("SampleRESULT").Select        'this will start the code on the correct sheet
markCopy = False
For Rw = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    Select Case UCase(Cells(Rw, 5).Value)
        Case "BLD", "EOW", "INLSW"  'if you need to add another section of code, copy from here
            If Cells(Rw, Columns.Count).End(xlToLeft).Column <> 7 Then
            markCopy = True
            End If                  'to here and of course change the number after <>
        Case "ED", "ER" 'you can append any Case
            If Cells(Rw, Columns.Count).End(xlToLeft).Column <> 6 Then
                markCopy = True
            End If
        Case "CP", "TBKR", "CLW", "NG"
            If Cells(Rw, Columns.Count).End(xlToLeft).Column <> 5 Then
                markCopy = True
            End If
        Case "XCLW"
            If Cells(Rw, Columns.Count).End(xlToLeft).Column <> 9 Then
                markCopy = True
            End If
            'if you add another section of code paste what you copied from above here
    End Select
    If markCopy = True Then
            Range(Cells(Rw, 1), Cells(Rw, 20)).Interior.ColorIndex = 3
            Range(Cells(Rw, 1), Cells(Rw, 20)).Select
             Selection.Copy
             Sheets("Sheet1").Select
             Range("A" & Rows.Count).End(xlUp).Offset(1).Select 'starts pasting on row 2
             Selection.PasteSpecial Paste:=xlPasteValues
             Application.CutCopyMode = False
             Sheets("SampleRESULT").Select
             Range("A" & Rw).Select
            markCopy = False
    End If
Next Rw
End Sub

Hope that this will be of some help.
Christ's Peace and Best of Luck