Use the following code and see if it helps...

Sub Button1_Click()

Dim fnd As String



fnd = InputBox("What do u want to Find?")
Range("A1").Select
Cells.Find(What:=fnd, After:=ActiveCell, LookIn:=xlFormulas, LookAt
_
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False).Activate

ActiveCell.Offset(1, 0).Activate
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Select
Selection.Copy





End Sub



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/