compare columns

The below code is basically to compare one cell in a column in one sheet to another cell in a column in another sheet and if that cell does not match copy  that intire row to another sheet.

Sub CompareSheets2()
Dim ws1, ws2 As Worksheet
Dim RowsA, i, counter As Long
Dim blnFound As Boolean
blnFound = False

Set ws1 = Sheets("SampleData") ' your sample data sheet
Set ws2 = Sheets("Search criteria") ' your sheetname
Set ws3 = Sheets("Results") ' your sheetname

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
RowsA = ws1.Cells(Rows.Count, 1).End(xlUp).Row
RowsB = ws2.Cells(Rows.Count, 1).End(xlUp).Row
counter = 1

'copy values
For j = 1 To RowsB
    For i = 1 To RowsA
        If ws1.Cells(i, 1) = ws2.Cells(j, 1) Then
            blnFound = True
            Exit For
        End If
    Next i
    If Not blnFound Then
        ws2.Rows(j).EntireRow.Copy ws3.Cells(counter, 1)
        counter = counter + 1
    End If
    blnFound = False
Next j
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic


End Sub

ws1 Sample data:
1      APPLE      ORANGE
2      APPLE      ORANGE
3      APPLE      ORANGE
_____________________________
ws2 search data:
4      DOG      CAT
5      DOG      CAT
6      DOG      CAT
______________________________
ws3 results sheet expected result:
4      DOG      CAT
5      DOG      CAT
6      DOG      CAT
Works perfect up to this point however if i change the search data to:
1      DOG      CAT
2      DOG      CAT
6      DOG      CAT
________________________________
The expected result should be:
6      DOG      CAT
________________________________
The result I get is:
1      DOG      CAT
2      DOG      CAT
6      DOG      CAT
_______________________________

Can someone help me figure this out.  I've posted this question before and the person helping me just disappeard and almost had it figured out.   Maybe someone has a different approach in comparing cells and doing something very similar to what i need.