scrollen umgehen

Sub BeiKlick_Bestellung()
Dim knr As Long
Dim z As Long
knr = Sheets("1blick").Range("K5")
On Error Resume Next
z = WorksheetFunction.Match(knr, Sheets("Bestelleingabe-Kunde").Range("A:A"))
If Err.Number = 0 Then
Application.Goto Sheets("Bestelleingabe-Kunde").Range("A" & z)
Else
MsgBox "Kundennummer nicht gefunden!"
End If
End Sub

Das Makro sucht mir Die Zahl aus Sheets("1blick").Range("K5") in Spalte A in Sheets("Bestelleingabe-Kunde").
Wie kann ich einstellen, dass die markierte Zeile, also meine gefundene Nummer, die oberste linke Zeile ist, damit ich nicht mehr mit der Maus rumscrollen muss ?
Die Zahl, die ich suchen lasse ist nämlich mehr oder weniger die Überschrift! Was ich eigentlich brauche, sind die Daten darunter... da waäre es viel einfacher, wenn die auf Anhieb sichtbar wären
Hat jemand eine Idee ?
Gruss, Toni