title: Copy rows with certain value vba excel
body: <p>Hi all I have a sheet with more then 60 000 rows and I want to copy all rows to a new sheet if column of row contains certain value for example Energizer like in the following code</p>
  
  <pre><code> Sub Macro3()
      Dim rngA As Range
      Dim cell As Range
      Set col = Cells(Rows.Count, "A").End(xlUp)
  
      Set rngA = Range("A2", col)
      For Each cell In rngA
          If cell.Value = "Energizer" Then
              cell.EntireRow.Copy
  
          End If
      Next cell
  
  End Sub
  </code></pre>
  
  <p>Code doesn't work at all what could be done?</p>