Stop Macro bringing across duplicate data

[excel_learner2]

Hi all,

I've found some help on here in the past, so thought I would try my luck again.

I currently have a Workbook that is pulling data from one sheet to another based on the value of a specific row. I need it to read the value "Yes" in one of the columns and copy the entire row to the new sheet. I have acheived this, created a button to run the Macros and copy the data over. All seems fine, however if you click the button again, it brings the data over again.

I need something that will enable the Macros to check if the value in Column B is already present, then it will not copy across. Please see the current code below:

Sub MoveRowBasedOnCellValue()

    Dim xRg As Range
    Dim xCell As Range
    Dim i As Long
    Dim J As Long
    Dim K As Long
    i = Worksheets("Open Cases").UsedRange.Rows.Count
    J = Worksheets("Uncollectables").UsedRange.Rows.Count
    If J = 1 Then
    If Application.WorksheetFunction.CountA(Worksheets("Uncollectables").UsedRange) = 0 Then J = 0
    End If
    Set xRg = Worksheets("Open Cases").Range("R1:R" & i)
    On Error Resume Next
    Application.ScreenUpdating = False
    For K = 1 To xRg.Count
        If CStr(xRg(K).Value) = "Yes" Then
            xRg(K).EntireRow.Copy Destination:=Worksheets("Uncollectables").Range("A" & J + 1)
            J = J + 1
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Just to reiterate that the above works for the initial purpose of what I wanted, I just need it so that every time the button is clicked to update the new tab (we will need to do this each day) it checks if the data is already present.

If an example work book is required I can try and sort this out, but the nature of my work is quite sensitive so ideally I would not do this.

Hoping somebody is able to help! Thanks