Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    u = Cells(Rows.Count, "a").End(xlUp).Row
    If Not Intersect(Target, Range("f7:f" & u)) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        On Error Resume Next
        s = Target.Value
        If s <> "" Then
            a = Sheets(s).Cells(Rows.Count, "a").End(xlUp).Row + 1
            b = Target.Row
            Rows(b).Copy Sheets(s).Range("a" & a)
            Rows(b).Delete
        End If
    End If
    Application.EnableEvents = True
End Sub