Morning bro and sis, How should I code, to copy base on current month....anybody ?

Regards...


Sub Transform()

----> Proceed this statement when month = October
Sheets("Chart 2009").Select
Range("H35:H38").Select
Selection.Copy
Sheets("Year 2009").Select
Range("K4:K7").Select
ActiveSheet.Paste

---> Proceed this statement when month = November
Sheets("Chart 2009").Select
Range("J35:J38").Select
Selection.Copy
Sheets("Year 2009").Select
Range("L4:L7").Select
ActiveSheet.Paste

---> Proceed this statement when month = December
Sheets("Chart 2009").Select
Range("H35:H38").Select
Selection.Copy
Sheets("Year 2009").Select
Range("M4:M7").Select
ActiveSheet.Paste

End Sub