Fejl i kode

Hej, er der nogen der kan se hvad der er galt her?!? Jeg får nemlig ikke vist det som jeg vælger i min pop-up menu!Får ikke en fejl-meddelse,og det ark som skulle vise det pågældende data bliver åbnet,men der er bare ingen data i den!DEt ser ud til,at det data der skulle overføres fra arket "DATABASE" til arket "PRIORITY" ikke bliver overført som det skal!

Her er koden:

Private Sub CmdOK_Click()
Rem hvis element er udpeget
  If Me.LstPriority <> -1 Then
    findPriorityDB Me.LstPriority, 16      'række 16 = Q
   
    ActiveWorkbook.Sheets("PriorityStatus").Activate
    Unload UfmPriority
  End If
End Sub
Private Sub LstPriority_Click()          'ved klik i listbox

End Sub
Private Sub Userform_Activate()
    With LstPriority
        .RowSource = "PGRPriority"
        .ListIndex = 0
    End With
End Sub
Private Sub findPriorityDB(navn, kolonne)
Dim arkRæk
    arkRæk = 5
 
Rem Slet gl. indhold
On Error Resume Next
    ActiveWorkbook.Sheets("PriorityStatus").Range("A5:I54").Select
    Selection.ClearContents

    With ActiveWorkbook.Sheets("Database")
        For ræk = 5 To 65500
            If .Cells(ræk, kolonne) = "" Then
                Exit Sub
            Else
                If .Cells(ræk, kolonne) = navn Then
                    ActiveWorkbook.Sheets("Priority").Cells(arkRæk, 1) = .Cells(ræk, 3)  'kolonne - C
                    ActiveWorkbook.Sheets("Priority").Cells(arkRæk, 2) = .Cells(ræk, 9)  'kolonne - J
                    ActiveWorkbook.Sheets("Priority").Cells(arkRæk, 3) = .Cells(ræk, 13)  'kolonne - N
                    ActiveWorkbook.Sheets("Priority").Cells(arkRæk, 4) = .Cells(ræk, 17)  'kolonne - R
                    ActiveWorkbook.Sheets("Priority").Cells(arkRæk, 5) = .Cells(ræk, 18)  'kolonne - S
                    ActiveWorkbook.Sheets("Priority").Cells(arkRæk, 6) = .Cells(ræk, 19)  'kolonne - T
                    ActiveWorkbook.Sheets("Priority").Cells(arkRæk, 7) = .Cells(ræk, 20)  'kolonne - U
                    ActiveWorkbook.Sheets("Priority").Cells(arkRæk, 8) = .Cells(ræk, 14)  'kolonne - O
                    ActiveWorkbook.Sheets("Priority").Cells(arkRæk, 9) = .Cells(ræk, 16)  'kolonne - Q
Rem .... evt flere kolonner

                    arkRæk = arkRæk + 1
                End If
            End If
        Next ræk
   
    End With
End Sub