title: vba - copy data from one sheet to another due to condition
body: <p>I am very new to vba (and code in general) so I apologise if I haven't asked the right question or have missed a thread that covers this. I have spent a couple of weeks trying to find the answer so hopefully you may be able to help.</p>
  
  <p>I am trying to copy, data from one sheet (Named Master Sheet) to another depending on a variable in column L (Variables "In Progress" or "Not Started") to an Overview / GUI sheet. My current code (below) does this for the first line of data, however I would like this to work for the whole sheet.Unfortunately it will have a changing amount of data added so the array will be expanding- unsure how much more difficult this will make it. </p>
  
  <p>Thank you very much for any help you can provide, and I apologise for the marked out notes. I can add a picture too (if possible) if it would help make more sense of what I would like to do?</p>
  
  <pre><code>Sub Update_Uncompleted_Tasks()
  ' Update_Uncompleted_Tasks Macro
  ' Selects tasks from Master Sheet and copies to the Overview Sheets if    assigned as uncompleted
  
  'DON'T USE BELOW YET (UNSURE IF IT WILL WORK)
  'Maybe Vlookup?
  'Dim LastRow As Long, i As Long
  'LastRow = Cells(Rows.Count, "L").End(xlUp).Row
  'For i = 1 To LastRow
  
  Sheets("Master Sheet").Select
      If Range("L2") = "In Progress" Then
          Range("A2:L2").Select
          Selection.Copy
          Sheets("Overview").Select
          Application.Goto Reference:="R10000C2"
          Selection.End(xlUp).Select
          Selection.Offset(1, 0).Select
          Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,   SkipBlanks _
              :=False, Transpose:=False
      ElseIf Range("L2") = "Not Started" Then
          Range("A2:L2").Select
          Selection.Copy
          Sheets("Overview").Select
          Application.Goto Reference:="R10000C2"
          Selection.End(xlUp).Select
          Selection.Offset(1, 0).Select
          Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
              :=False, Transpose:=False
      End If
  
  'Next i
  
  End Sub
  </code></pre>