Search code help

[jcaptchaos2]

I need some help in where a person could type a word or number in a cell say cell "A1" and then have it search a database in columns A:I and then put every row from the database that contains that word or number starting in "A3". So if I typed the word file in "A1" all the rows that contain the word file would populate starting in 'A3" I have been messing with this code that will only search column a and I can't figure out how to have it look at a cell anyway but this kinda does what I want but only pulls 1 line. Could someone steer me in the right direction.

Public Sub FindITEM()
  Dim aRange As Range
  
  Set aRange = Range("A1:i122").Find(what:="12105", LookAt:=xlWhole, LookIn:=xlValues)
    
  If aRange Is Nothing Then
    MsgBox "Data not found"
    Exit Sub
  Else
    aRange.Resize(1, 9).Copy Destination:=Range("N1")
  End If
End Sub

 

[bensonsearch]

ybe try not resizing aRange?

 

[jcaptchaos2]

Thanks for responding, I can do that and it will give me more lines of data but it does not do what I want. I also want to look at what is typed in a cell so instead of using Find(what:="12105", I want to use something like Find(what:=("A1"), but that does not seem to work. I would like it to look at the whole database and pull all rows that contain what ever I type in "A1"