Copy rows based on cell content

Hi

had to add another column with list in w to tiigger the change event
at the right time to capture the whole completed row .. not just when you reached the f column

Private Sub Worksheet_Change(ByVal _
                    Target As Excel.Range)
    Dim myRange As Range
    Dim sheetname As String
 On Error Resume Next
    Set myRange = Intersect(Range("F2:F100"), Target)
    Set myRangeto = Intersect(Range("W2:W100"), Target)
   If Not myRangeto Is Nothing And Range("W" & Target.Row) = "Yes" Then
       Range("A" & Target.Row & ":V" & Target.Row).Copy Destination:=Sheets(Choose(Range("c" & Target.Row).Value, "gregg1", "ej1", "joey1", "jeff1", "tom1")).Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
    End If
  If Not myRange Is Nothing And Range("F" & Target.Row) = "4" Then
     Range("A" & Target.Row & ":V" & Target.Row).Copy Destination:=Sheets("closed1").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
  End If
End Sub