One way
Sub searchnameoradd()
ans = InputBox("enter name or address")
mr = Columns("o:p").Find(ans).Row
Range(Cells(mr, "o"), Cells(mr, "p")).Copy Range("q1")
End Sub

Signature
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguillett1@austin.rr.com
> Good morning:
> This is an example what I am trying to achieve
[quoted text clipped - 14 lines]
> Thank you in advance
> John