kopiere tal i kolonne A, hvis der sktår noget i kolonne O

Det var vist noget vrøvl jeg fik skrevet.
Arkene ser sådan ud:

TEMP
A      B        .........  O
1000 tekst1              4
1001 tekst2             
1010 tekst3              6


TEMP1
A      B        .........  O
    tekst1             
1001 tekst2             
    tekst3             

EFTER MAKROEN KØRES:
TEMP
A      B        .........  O
1000 tekst1              4
1001 tekst2             
1010 tekst3              6

TEMP1
A      B        .........  O
1000 tekst1             
1001 tekst2             
1010 tekst3

Jeg har kæmpet temmelig meget med denne kode, men kan ikke få den til at virke.
Jeg ville ikke sætte den på, da den tydeligvis viser mine problemer med koden.
Er der ikke nogen der kan hjælpe mig med at sige hvad jeg gør galt

Den stopper når jeg forsøger på at finde "kontonavn" i arket temp1


Sub kopier_samlekonti()
Dim kontonr As Variant
Dim kontonavn As Variant
Sheets("TEMP").Select

For Each c In Range("o1:o100").Cells
        If c.Value <> "" Then
            kontonr = c.Offset(0, -14).Value    'fanger kontonr i kol A
            kontonavn = c.Offset(0, -13).Value  'fanger kontonavn i kol B
                 
                 
            Sheets("TEMP1").Select
            Columns("B:B").Select
            Selection.Find(What:=kontonavn, After:=ActiveCell, LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False).Activate
           
            ActiveCell.Offset(0, -1).Value = kontonr
            Sheets("TEMP").Select
                 
          End If
    Next c
   
End Sub

Sub kopier_samlekonti()
Dim kontonr As Variant
Dim kontonavn As String
Dim findwhat As String
Sheets("TEMP").Select

For Each c In Range("o1:o100").Cells
On Error Resume Next
For kontonr = 1 To 20
If c.Value <> "" Then
            kontonr = c.Offset(0, -14).Value    'fanger kontonr i kol A
            kontonavn = c.Offset(0, -13).Value  'fanger kontonavn i kol B
            'c.Offset(0, -2).Value = kontonr
                 
                 
            Sheets("TEMP1").Select
            Columns("B:B").Select
        Selection.Find(What:=kontonavn, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
       
        ActiveCell.Select 'With Selection.Find
            ActiveCell.Offset(0, -1).Value = kontonr
            Sheets("TEMP").Select
            'End With
          End If
   
    Next kontonr
    Next c
   
End Sub

Tænk at man skal bruge så lang tid på at få så lidt kode til at virke :-)

Blind høne kan også finde korn :-)