VBA cut/paste rows to multiple sheets

[dlogic]

Hello,

im trying to make a small database for tracking animals in an animal shelter.
What i need from this macro is when we input data in column L to cut that row and paste it in sheet2, but when we input data in row M to cut that row and paste it in sheet 3.

First 2 rows are headers.

 

[mumps]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Enter a value in column L or column M and press the ENTER key.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Range("L:L,M:M")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Select Case Target.Column
        Case Is = 12
            Target.EntireRow.Copy Sheets("Sheet2").Cells(Sheets("Sheet2").Rows.Count, "A").End(xlUp).Offset(1)
            Target.EntireRow.Delete
        Case Is = 13
            Target.EntireRow.Copy Sheets("Sheet3").Cells(Sheets("Sheet3").Rows.Count, "A").End(xlUp).Offset(1)
            Target.EntireRow.Delete
    End Select
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

 

[dlogic]

Wow, works like a charm, and so fast. Thank you mumps!!!

 

[mumps]

You are very welcome.