Try
Rich (BB code):Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Long If Target.Column = 6 Then Application.EnableEvents = False With Sheets(Format(Month(Target.Value), "00")) LR = .Range("A" & Rows.Count).End(xlUp).Row Range("A" & Target.Row & ":R" & Target.Row).Copy Destination:=.Range("A" & LR + 1) End With Target.EntireRow.Delete Application.EnableEvents = True End If End Sub
1. Make sure that macros are enabled: Tools > Macro > Security.
2. Make sure that events are enabled: In the code window press CTRL + G to open the Immediate Window, type in
Application.EnableEvents = True
and press Enter.