Auto Macro for updating Current Month

This macro pulls the current months data so at the moment the range is Q473:Q484. Next month the range would be R473:R484 and so on. Is there a way of automatically setting this macro up so I do not have to keep editing the range every month. MANY THANKS!

Range("M5:M17").Select
    Selection.Copy
    Range("L5").Select
    ActiveSheet.Paste
    Range("L5").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("L5:M5"), Type:=xlFillDefault
    Range("L5:M5").Select
Workbooks.Open Filename:= _
        "B:\CSCM\CSCM Team\Customer Data 09.xls"
    Sheets("Raw Data").Range("Q473:Q484").Copy
    Workbooks("Current Month.xls").Sheets("Customer").Range("M6:M17").PasteSpecial Paste:=xlPasteValues
    Windows("Customer Data 09.xls").Activate
    ActiveWindow.Close savechanges:=False