I'm not an expert but try this:

Range("C4:CR54").Select
Selection.ClearContents

Sheets("JAN06").Activate
Range("A4:AG60").Select
Selection.Copy
Sheets("3 Months").Activate
Range("A4:AG60").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False


Sheets("Feb06").Activate
Range("F4:AG60").Select
Selction.Copy
Sheets("3 Months").Activate
Range("AH4:BI60").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False


Sheets("Mar06").Activate
Range("F4:AJ60").Select
Selection.Copy
Sheets("3 Months").Activate
Range("BJ4:CN60").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False


HTH
JG


--
pinmaster
------------------------------------------------------------------------
pinmaster's Profile: http://www.excelforum.com/member.php...fo&userid=6261
View this thread: http://www.excelforum.com/showthread...hreadid=498957