VBA automatically Cut and Past (cut and past it into the different work sheet)

[seifeddine87]

Screenshot 2016-03-31 21.02.17.png
Screenshot 2016-03-31 21.35.16.png

hi i have got 12 work sheet names as the months of the year from Apr to Mar each work sheet from Column "A" to "AE" and Row 1260 to 2000
Column "B" is the sold date i want it when i put the date automatically cut the row from "A" to "X" and past it to the right work sheet
example
i have bought a car in April i have put all the data in work sheet Apr and sold it in July when i tape the date in sold date Column 04/07/16 the row from "A" to "X" cut and past it in work sheet Jul in the next available row from 1260 to 2000
but i have got a formula in Column "K","P" and "V" will be ("A" to "X" - "K","P"and "V") if there is any way to skip "K","P"and"V"

i have got a VBA Code does exactly what i want but got different range

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim dt As String
If Target.Cells.Count > 1 Then Exit Sub
If Len(Sh.Name) <> 3 Then Exit Sub
Application.EnableEvents = False
If Not Intersect(Target, Range("C3", Cells(Rows.Count, 3).End(xlUp))) Is Nothing Then
dt = Format(Range("C" & Target.Row).Value, "mmm")
Sh.Range("A" & Target.Row).Resize(1, 9).Copy
Sheets(dt).Cells(Rows.Count, 1).End(xlUp)(2).PasteSpecial xlPasteValues
Sh.Range("A" & Target.Row).Resize(1, 9).ClearContents
End If
Application.EnableEvents = True
End Sub

if there is any thing not clear please ask me
thank you

[xladept]

A couple of small changes:

Please Login or Register  to view this content.

[seifeddine87]

workes perfect i do appreciated xladept and a lot of respect

[xladept]

This is the correct version Thanks again for the rep. AND, don't forget to mark them both Solved