title: Select all cells matching my find criteria
body: <p>I´m writing a simple macro for searching my value in table. I know that searched value is in the document many times. But my macro finds just first value in table. I want select all rows with the value I´m looking for. Then I want copy selected rows and copy them to "sheet2". Can somebody help me adjust my macro? Thx</p>
  
  <pre><code>Sub Vyhladat()
  
  Sheets("Sheet1").Columns(24).Find(What:=InputBox("Please enter your LR number", "Search")).Select
  ActiveCells.EntireRow.Select
  Selection.Copy
  Sheets("Sheet2").Select
  Range("A2").Select
  
  Do
  If IsEmpty(ActiveCell.Value) Then
      ActiveCell.PasteSpecial xlPasteValues
      End
  Else
      ActiveCell.Offset(1, 0).Select
  End If
  
  Loop
  
  End Sub
  </code></pre>