For deleting the dates that are not in the same month do:

Sub rReplace()
Do While ActiveCell < ""
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = #/* Then
Call rReplace
Else Selection.EntireRow.Delete
Loop


Where "#" is the month you wish to keep.


--
Losse
------------------------------------------------------------------------
Losse's Profile: http://www.excelforum.com/member.php...o&userid=24813
View this thread: http://www.excelforum.com/showthread...hreadid=387615