Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Intersect(Target, Range("M:M")) Is Nothing Then Exit Sub
On Error GoTo endit
Application.EnableEvents = False
If Target.Value = "Band 7's" Then
Target.EntireRow.Copy Worksheets("Band 7's").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
ElseIf Target.Value = "Panel Letters" Then
Target.EntireRow.Copy Worksheets("Panel Letters").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
ElseIf Target.Value = "Letters to be signed" Then
Target.EntireRow.Copy Worksheets("Letters to be signed").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
End If
endit:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub