Abfrage auf Spalte A beschränken

Sub suchen()
'Abfrage durch InputBox in einer 'Tabelle suchen und alle Fundzeilen auswählen lassen?   Selectieren
Modul1:
'Option Explicit
Application.Goto Reference:="Stamm"
Application.FindFormat.NumberFormat = "General"
Dim wks As Worksheet
Dim rngFind As Range, rngRows As Range
Dim lngRow As Long
Dim strFind As String, strSearch As String
strSearch = InputBox("Müller & Co. Artikelsuchsystem:", , "Bitte Schüco Artikelnummer eintragen....")
Set rngFind = Cells.Find(strSearch)
If rngRows Is Nothing Then
Set rngRows = rngFind
End If
If Not rngFind Is Nothing Then
strFind = rngFind.Address
Do
Set rngRows = Application.Union(rngRows, rngFind.EntireRow)
Set rngFind = Cells.FindNext(After:=rngFind)
If rngFind.Address = strFind Then Exit Do
Loop
End If
rngRows.Select
Call uebertragen
End Sub