title: VBA Copy Rows from One worksheet to Another (Syntax error?)
body: <p>I have data on one worksheet named "Master" that I am trying to conditionally copy over each row to a workbook called "Auto" based on whether the original row has "Hire" in column A.</p>
  
  <pre><code>Sub Macro2()
  Dim lr As Long, lr2 As Long, r As Long
  lr = Sheets("Master").Cells(Rows.Count, "A").End(xlUp).Row
  lr2 = Sheets("AUTO").Cells(Rows.Count, "A").End(xlUp).Row
  
      For r = lr To 2 Step -1
          Select Case Range("A" &amp; r).Value
             Case Is = "Hire"
             Rows(r).Copy Destination:=Sheets("AUTO").Range("A" &amp; lr2 + 1)
              lr2 = Sheets("AUTO").Cells(Rows.Count, "A").End(xlUp).Row
          End Select
      Next r
  End Sub
  </code></pre>
  
  <p>When I run the macro, however, it does not populate the second worksheet. </p>