Combining VBA Codes

Good Afternoon!

I am wanting to combine two separate but similar VBA codes into one. I am currently using the code below. What this does is identifies a value in the L:L column marked as Filled on the "Display" spreadsheet and moves that entire Row to the "Filled" Worksheet. I would like to add a code that identifies the value Submitted in the same L:L column on the "Display" worksheet and Copy then delete that entire row to another worksheet called "Submitted". Let me know if any of that makes sense or not.

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I= Worksheets ("Display").UsedRange.Rows.Count
J= Worksheets ("Filled").UsedRange.Rows.Count
If J = 1 Then
If Applications.WorksheetFunction.CountA (Worksheets ("Filled").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets ("Display"). Range ("L1:L" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr (xRg (K).value) = "Filled" Then
xRg (K) . EntireRow.Copy Destination:=Worksheets (Filled").Range("A" & J +1)
xRg (K) . EntireRow.Delete
If CStr (xRg (K).value) = "Filled" Then
K+K -1
End If
J=J+1
End If
Next
Application.ScreenUpdating = True
End Sub

I have attached the workbook.

Try to replace all your worksheet module code by this one :

PHP Code: 

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 12 Then
        Select Case Target.Value2
               Case "Filled", "Submitted"
                    Application.EnableEvents = False
                    Me.UsedRange.Rows(Target.Row).Copy Sheets(Target.Value2).Cells(Rows.Count, 1).End(xlUp)(2)
                    Target.EntireRow.Delete
                    Application.EnableEvents = True
        End Select
    End If
End Sub 


Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !

You're welcome, thanks for the rep' !