Here is a start
' some code needed here to determine the number of rows.
' Assumed 31 in this case. Sort by date
Range("A1:C31").Sort Key1:=Range("A29"), Order1:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
' some code needed here to find which rows are the same month
' then move those rows to the correct columns
Range("A5:C7").Cut Destination:=Range("D7:F7")
' make sure the column width is wide enough
Columns("D:D").EntireColumn.AutoFit

"mr2u53" wrote:

I have a worksheet
in colum A:A I have dates

then in colum C:C and colum D:D I have numbers.

Using a formula how I do I find and move, or copy, ((ALL)) the
2/1/07-2/28/07 records into the E:E, F:F, and G:G colums and so on and so
forth down to december?
for example:
a c d
2/1/07 100 234
3/1/07 100 456
2/1/07 50 545

a c d e f g
3/1/07 100 456
2/1/07 100 234
2/1/07 50 545

--
Thank you. Hope we can work this out.