I have the following code that finds the string in the following VBA code. The problems is I have to re-enter the search string every time the macro runs. How can I adjust this code to select, copy and paste (as it does for the first string it finds) all the remaining rows relevant to the this search string?

Dim lngNextRow As Long
Dim strMyString As String
Sheets("ww1186").Activate

strMyString = InputBox("Enter the number you wish to find")

On Error GoTo err_Trap


Cells.Find(What:=strMyString, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate

ActiveCell.EntireRow.Copy

Sheets("Sheet1").Select
lngNextRow = Range("A" & rows.Count).End(xlUp).Row + 1
Range("A" & lngNextRow).PasteSpecial


err_Trap:
If Err.Number = 91 Then
MsgBox "Could not find " & strMyString & " anywhere on this sheet.", , "Unsuccessful search"


Can someone please help?
Many thanks
Lambert