copy-paste error
 

Ryan,

Try changing your Activate to a Select:

Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0).Activate

to

Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0).Select

Activate doesn't modify the current selection if the cell being activated is
within the selection, which could lead to a paste error due to incompatible
range sizes.

HTH,
Bernie
MS Excel MVP

"Ryan" wrote in message
...
I'm trying to copy a range of data from sheet A and paste it into Sheet B,
then i'm trying to copy a range of data from a sheet C and paste it into the
next empty cell in Sheet B. so the data from C should paste right under the
data from A.

I'm getting an compiler error for the activesheet.paste statement at the
bottom.

can anyone tell me what is wrong.

tks.

Sub CollectData1()

Workbooks.Open Filename:= _
"G:\Credit\CSCASHSUM_VBA_V1.xls"
Sheets("CT").Select
Application.Goto Reference:="R1C1"
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Windows("CS-Summary-Report.xls").Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Rows("2:2").Select
Selection.Font.Bold = True
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With
Cells.Select
Selection.Columns.AutoFit

Workbooks.Open Filename:= _
"G:\Credit\ComSwapsVBA.xls" _
, UpdateLinks:=0
Sheets("UNIQUE2").Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Windows("CS-Summary-Report.xls").Activate

Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0).Activate

ActiveSheet.Paste

End Sub