title: Excel macro to find a cell in a sheet and copy the entire row in another sheet
body: <p>I have a excel sheet with around 50k rows and i need a macro to search for a cell in that sheet and if it finds it to copy the entire row to another sheet, my problem is that the keyword may be on multiple rows so if there are like 4 cells with that keyword i need it to copy all 4 rows and paste them in another sheet</p>
  
  <pre><code>Sub saca()
  
  Dim intPasteRow As Integer
  intPasteRow = 2
  Dim ceva As Range
  Dim FirstAddress As String
  Dim intRow As Integer
  
  Sheets("Sheet2").Select
  Columns("A:AV").Select
  On Error Resume Next
  Set ceva = Selection.Find(What:="m762", After:=ActiveCell, LookIn:= _
      xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
      xlNext, MatchCase:=True, SearchFormat:=True).Activate
  If Not ceva Is Nothing Then
      FirstAddress = ceva.Address
      Do
          Set ceva = Selection.FindNext(ceva).Activate
      Loop While Not ceva Is Nothing And ceva.Address &lt;&gt; FirstAddress
  End If
  
  intRow = ActiveCell.Row
  Rows(intRow &amp; ":" &amp; intRow).Select
  Selection.Copy
  
  Sheets("Sheet1").Select
  ActiveSheet.Paste
  
  End Sub
  </code></pre>
  
  <p>So far its searching for "m762" in Sheet2 but it only copies the first row with a "m762" cell instead of selecting all of them...I can't find a way to make it select all rows with "m762" in them</p>