Sub lisaKontaktid()
  Dim sihtleht As Worksheet
  Dim lisaleht As Worksheet
  Set sihtleht = Workbooks("minu_kontaktandmed1.xls").Sheets("sheet1")
  Set lisaleht = Workbooks("Gen_kontaktandmed.xls").Sheets("sheet1")
  uusreanr = 1
  veergudearv = 6
  Do While Len(sihtleht.Cells(uusreanr, 1)) > 0
    uusreanr = uusreanr + 1
    sihtleht.Cells(uusreanr, 1) = Trim(sihtleht.Cells(uusreanr, 1))
  Loop
  genreanr = 2
  Do While Len(lisaleht.Cells(genreanr, 1)) > 0
     lisaleht.Cells(genreanr, 1) = Trim(lisaleht.Cells(genreanr, 1))
     genreanr = genreanr + 1
  Loop
  sihtleht.Range("a2").CurrentRegion.Sort Key1:=sihtleht.Range("A2"), Order1:=xlAscending, Key2:=sihtleht.Range("C2") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom

  lisaleht.Range("a2").CurrentRegion.Sort Key1:=lisaleht.Range("A2"), Order1:=xlAscending, Key2:=lisaleht.Range("C2") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom

  genreanr = 2
  sihtotsireanr = 2
  Do While Len(lisaleht.Cells(genreanr, 1)) > 0
    Do While Trim(sihtleht.Cells(sihtotsireanr, 1)) < Trim(lisaleht.Cells(genreanr, 1))
       sihtotsireanr = sihtotsireanr + 1
    Loop
    lisatud = False
    If (sihtleht.Cells(sihtotsireanr, 1) = (lisaleht.Cells(genreanr, 1))) Then
       Do While Trim(sihtleht.Cells(sihtotsireanr, 1)) = Trim(lisaleht.Cells(genreanr, 1)) And _
           Not Trim(sihtleht.Cells(sihtotsireanr, 3)) = Trim(lisaleht.Cells(genreanr, 3))
           sihtotsireanr = sihtotsireanr + 1
       Loop
       If Trim((sihtleht.Cells(sihtotsireanr, 3)) = Trim(lisaleht.Cells(genreanr, 3))) Then
        For veerunr = 1 To veergudearv
         sihtleht.Cells(sihtotsireanr, veerunr) = lisaleht.Cells(genreanr, veerunr)
        Next veerunr
        lisatud = True
       End If
    End If
    If Not lisatud Then
       MsgBox "lisab " & lisaleht.Cells(genreanr, 3)
       For veerunr = 1 To veergudearv
         sihtleht.Cells(uusreanr, veerunr) = lisaleht.Cells(genreanr, veerunr)
       Next veerunr
       uusreanr = uusreanr + 1
    End If
    genreanr = genreanr + 1
  Loop
End Sub