This is the code for Sheet1
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Columns(30)) Is Nothing Then
If Target.Value = 3 Then
Rows(Target.Row).Copy Sheets("faClosedClaims").Range("A" & Rows.Count).End(3)(2)
Rows(Target.Row).Delete
End If
End If
Application.EnableEvents = True
End Sub
For Sheet3 reverse it
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Columns(30)) Is Nothing Then
If Target.Value = 2 Then
Rows(Target.Row).Copy Sheets("faClaims2").Range("A" & Rows.Count).End(3)(2)
Rows(Target.Row).Delete
End If
End If
Application.EnableEvents = True
End Sub
Bookmarks