Copy Current Month into YTD Spreadsheet

[AJ]

I would like to create a macro to copy the current month information from one
spreadsheet into a Montly YTD spreadsheet.

I want to be able to create a macro so that for example if it's June, the
macro would know how many columns over it needs to "copy to" on the YTD
spreadsheet. I will be doing this each month.

Hope that makes sense.

Thanks!

 

[Gary''s Student]

Sub dural()
Sheets("Data").Range("A:A").Copy
Sheets("Monthly").Activate
Cells(1, Month(Date)).Select
ActiveSheet.Paste
End Sub