Sleeper: Advance Filter with command button

[tqm1]

Dear Experts

On worksheet, Find button Display many of records instead given criteria in A1

Please reveiw attachment and help

[shasur]

Here is the changed snippet

 
' With shData.Columns("A:H").Rows("2:9999")
With shData.Columns("A:A").Rows("2:9999") 'Changed By Shasur
    Set mycell = .Find(stringToLookFor, LookIn:=xlValues)
    If Not mycell Is Nothing Then
        firstAddress = mycell.Address
        Do
'if mycell = stringtolookfor then
                myFoundRow = mycell.Row
                shData.Range("a" & myFoundRow & ":H" & myFoundRow).Copy _
                    Destination:=sh.Cells(myrow, 1)
                myrow = myrow + 1
'Set mycell = shData.Columns("A:H").FindNext(mycell)
            Set mycell = shData.Columns("A:H").FindNext(mycell) 'Changed By Shasur
        Loop While Not mycell Is Nothing _
            And mycell.Address <> firstAddress
Else
         MsgBox ("Nothing Found")
      End If
   End With