Doppelte nicht übertragen

Sub Ausw_Mon()
Dim wksA As Worksheet 'Auswertung
Dim wksMo As Worksheet 'Monteur
Dim ncCol As New Collection
Dim iRowMo As Integer 'Beginn Zeile Monteur
Dim iRowA As Integer 'Beginn Zeile Auswertung
Set wksMo = Sheets("Monteur")
Set wksA = Sheets("Auswertung")
iRowMo = 15 'Startzeile Monteur
iRowA = 8 ' Startzeile Auswertung
On Error Resume Next
Do Until IsEmpty(wksMo.Cells(iRowMo, 7))
ncCol.Add wksMo.Cells(iRowMo, 7), wksMo.Cells(iRowMo, 7)
If Err = 0 Then
wksMo.Cells(iRowMo, 7).Copy wksA.Cells(iRowA, 4)
wksMo.Cells(iRowMo, 4).Copy wksA.Cells(iRowA, 3)
Else
Err.Clear
End If
iRowMo = iRowMo + 1
iRowA = iRowA + 1
Loop
On Error GoTo 0
Set wksMo = Nothing
Set wksA = Nothing
End Sub