opdatere ark b hvergang der er nyt i ark a, Fortsat

Jeg har lidt kode fra kabbak som jeg har rettet lidt til.
se: http://www.eksperten.dk/spm/460764

Sub FindOrd()
Dim Fundet() As Integer
I = 1
On Error GoTo Slut
ReDim Fundet(1)
    Søg = InputBox("Skriv søgestrengen på hvad der skal Findes", "Find Streng")
      Sheets("Paste").Select
      Columns("A:N").Select 'området den søger på ret det selv til, her kolonne A til E
      Selection.Find(What:=Søg, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
        A = ActiveCell.Row
        b = ActiveCell.Column
        Cells(A, b).Activate
        Fundet(I) = ActiveCell.Row
          If I > 1 Then
        For t = 1 To I - 1
          If Fundet(I) = Fundet(t) Then
          I = I - 1
        End If
        Next
      End If
      I = I + 1
    Do
    ReDim Preserve Fundet(I)
      Cells.FindNext(After:=ActiveCell).Activate
        A = ActiveCell.Row
        b = ActiveCell.Column
        Cells(A, b).Activate
        Fundet(I) = ActiveCell.Row
      If I > 1 Then
        For t = 1 To I - 1
          If Fundet(I) = Fundet(t) Then
                GoTo Videre
          End If
        Next
      End If
      I = I + 1
  Loop
Videre:

Slut:
  Sheets("Ej OK").Select
    Range("A65536").End(xlUp).Select
    r = ActiveCell.Row
  For t = 1 To I - 1
    Sheets("Paste").Rows(Fundet(t)).Copy
    Sheets("Ej OK").Rows(r + t).Select
    ActiveSheet.Paste
    Range("o" & r + t) = Now() ' indsætter tidspunkt i kolonne G, ret det til hvor du vil have det
      Next
End Sub

koden kopiere rækker indeholdende en bestemt tekst-streng fra et ark til et andet.

Jeg vil gerne have at den kun gør det første gang en bestemt række findes i ark a. (for at undgå dubbletter i ark b)


Jeg har data i A:N i begge ark. Jeg sætter dato stemplet i kolonne O (ikke nul) i ark B
A:G (I begge ark) ændres ikke, H:N ændres i ark A fra dag til dag