Need VBA code to copy entire row into monthly worksheets from a master register with same headers

[boochang]

Hello-

I would like a macro to copy an entire row of data, based on month of transaction.
I have identical headers from Row 1-6 and column A, on the register sheet and each month sheet (January, February, March, etc"
Data is in sheet "Register" from B7:AC500. The date for each transaction is listed in column B.
I want all transactions for the month of December moved to the "December" worksheet in the same workbook.
Starting the pasting at B7 on "December" worksheet. Once an entry is moved from the register sheet, it should only be in the December sheet. Additional December entries need to added below any entries previously moved.
Can anyone help me???

Name Period Name 0 Period EXPENSE REPORT Location EXPENSE REPORT Location 0 Line No. Date Miles Driven Fuel Auto Rental / Tolls / Parking / Taxi Air Fares Hotel Personal & Business Meals Entertain-ment Office Supplies Office & Cell Tele / Internet Postage Other $ Other Describe Expense ( Total Amount Line No. Date Participants Descriptions 1 12/2/2017 2 $ 1.07 1.00 2.00 3.00 4.00 5.00 6.00 7.00 8.00 9.00 $46.07 1 12/2/2017 2 12/4/2017 4 $ 2.14 1.00 2.00 3.00 4.00 5.00 6.00 7.00 8.00 9.00 $47.14 2 12/4/2017 3 12/6/2017 6 $ 3.21 1.00 2.00 3.00 4.00 5.00 6.00 7.00 8.00 9.00 $48.21 3 12/6/2017 4 12/8/2017 8 $ 4.28 1.00 2.00 3.00 4.00 5.00 6.00 7.00 8.00 9.00 $49.28 4 12/8/2017 5 12/10/2017 10 $ 5.35 1.00 2.00 3.00 4.00 5.00 6.00 7.00 8.00 9.00 $50.35 5 12/10/2017 6 12/12/2017 12 $ 6.42 1.00 2.00 3.00 4.00 5.00 6.00 7.00 8.00 9.00 $51.42 6 12/12/2017 7 12/14/2017 14 $ 7.49 1.00 2.00 3.00 4.00 5.00 6.00 7.00 8.00 9.00 $52.49 7 12/14/2017 8 5/4/2018 15 $ 8.03 1.00 2.00 3.00 4.00 5.00 6.00 7.00 8.00 9.00 $53.03 8 5/4/2018 9 12/12/2017 16 $ 8.56 1.00 2.00 3.00 4.00 5.00 6.00 7.00 8.00 9.00 $53.56 9 12/12/2017 10 12/14/2017 17 $ 9.10 1.00 2.00 3.00 4.00 5.00 6.00 7.00 8.00 9.00 $54.10 10 12/14/2017 11 6/8/2017 18 $ 9.63 1.00 2.00 3.00 4.00 5.00 6.00 7.00 8.00 9.00 $54.63 11 6/8/2017 12 6/9/2017 19 $ 10.17 1.00 2.00 3.00 4.00 5.00 6.00 7.00 8.00 9.00 $55.17 12 6/9/2017 13 3/25/2017 20 $ 10.70 1.00 2.00 3.00 4.00 5.00 6.00 7.00 8.00 9.00 $55.70 13 3/25/2017 14 4/5/2017 21 $ 11.24 1.00 2.00 3.00 4.00 5.00 6.00 7.00 8.00 9.00 $56.24 14 4/5/2017 <tbody> </tbody>

<tbody>
</tbody>

 

[My Aswer Is This]

Well this script will copy all your data to the proper sheets assuming you already have the sheets created.
And they all have full month names like "December" "January" "May"

Now I did not have the script clear the original sheet.

Was not sure what you wanted to happen next.

Seemed like you then wanted each row of data immediately copied to proper sheet when row was created on "Register" sheet but was not sure of that.

Sub Get_Month()
Dim ans As Variant
Dim anss As Long
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Sheets("Register").Activate
Lastrow = Sheets("Register").Cells(Rows.Count, "B").End(xlUp).Row
    For i = 7 To Lastrow
        ans = Format(Cells(i, 2), "MMMM")
        anss = Sheets(ans).Cells(Rows.Count, "B").End(xlUp).Row + 1
        If anss < 7 Then anss = 7
        Rows(i).Copy Sheets(ans).Rows(anss)
    Next
Application.ScreenUpdating = True
End Sub