Range("A1").Value = "January"
Range("A3").Value = "February"
Range("A5:D5").Select
Selection.AutoFill Destination:=Range("A5:I5")
Type:=xlFillDefault
Range("A5:I5").Select

This will give you the spaces that you need in between, then you ca
just generalize it if you need more than one year

--
ehnt
-----------------------------------------------------------------------
ehntd's Profile: http://www.excelforum.com/member.php...fo&userid=1586
View this thread: http://www.excelforum.com/showthread.php?threadid=27559