gå til bestemt celle

Jeg har et regneark med en kolonne med telefonnr., jeg har lavet en makro der kan finde telefonnr. eller fortælle, hvis telefonnr. ikke findes. Så langt så godt. Problemet er, at jeg gerne vil have makroen til at scrolle til den celle, hvor telefonnr. står, hvordan får jeg den til det?

Private Sub OkFindPerson_Click()

'  Sluk lige skærmen
    Application.ScreenUpdating = False
   
     
Dim dTal As Double

With txtIndtastBox
  If IsNumeric(.Text) = False Or Len(.Text) = 0 Then
      .Text = ""
      MsgBox "Det skal indtastes et telefonnr."
      .SetFocus
      Exit Sub
  Else
      'Teksten konverteres til et tal
      dTal = CDbl(.Text)
  End If

End With

'Tallet indsættes i celle
    Range("N2").Value = dTal
   
    If Range("N1").Value = 0 Then
    MsgBox "Det indtastede telefonnr. findes ikke på listen"
   
    Else
   
    Range("N2").Select
    Selection.Copy
    Cells.find(What:=Range("N2"), After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        Application.CutCopyMode = False

      End If
     
  'Formularen lukkes
Unload Me

End Sub