Copy Unique Rows Only Once

I have a piece of code that is designed to look at information on one sheet, and if it does not match what is on another sheet, it will copy the specific rows over. However, even after I do this once, and run the macro again, it will copy the same information over again. I need to figure out why it won't stop the copy after the first time the rows are on the new page.

Sub Datamove()
Dim i As Integer
Dim k As Integer
Dim v As Integer
Dim eRow As Long
Dim sht1 As Worksheet
Dim sht2 As Worksheet
Set sht1 = Worksheets("Uncorrected QC")
Application.ScreenUpdating = False
k = 2
With sht1
For v = 2 To . Cells(Rows.Count, 1).End(xlUp).Row Step 1
Dim shName As String....................................