title: Copy and Paste Entire Row
body: <p><strong>Function:</strong> I am working on a small project where I need to search each cell in a column for the word "Unknown" if it contains that word then copy that entire row on to a new sheet.</p>
  
  <p><strong>Problem:</strong> I am getting the "Object doesn't support this property method." error. I believe it is somewhere within the copy statement (not destination). It so simple but I cannot seem to solve this issue.</p>
  
  <pre><code>Sub CheckRows()
  Dim b As Range
  Dim SrchRng As Range
  
  Set b = ActiveWorkbook.Sheets("Sheet 2").Range("A1")
  Set SrchRng = ActiveWorkbook.Sheets("Sheet 1").Range("G1")
  
  Do While SrchRng.Value &lt;&gt; ""     
      If SrchRng.Value = "Unknown" Then
          Worksheets("Sheet 1").SrchRng.EntireRow.Copy _
              Destination:=Worksheets("Sheet 2").b
          Set b = b.Offset(1, 0)
          Set SrchRng = SrchRng.Offset(1, 0)
      Else: Set SrchRng = SrchRng.Offset(1, 0)
      End If
  Loop
  
  End Sub
  </code></pre>