runtime error 1004
 

I am using the following code to open a file and copy data
to another file. There are some cells that have merged
cells which is creating a runtime error 1004 this operation
requires the merged cells to be identically sized. I
originally tried to copy a bigger range with the same
formats but that didn't work either. Does anyone have any
suggestions?

Thanks.

Dim schb2 As Range
Workbooks(myfile).Activate
Worksheets("Schedule B-2 By Premium Group").Visible =
True
Worksheets("Schedule B-2 By Premium Group").Activate
Set schb2 = Worksheets("Schedule B-2 By Premium Group
").Range("d13:d811")
schb2.Copy
Worksheets("Schedule B-2 By Premium Group").Visible =
False
ThisWorkbook.Activate
Sheet7.Activate
Sheet7.Cells(13, 4).PasteSpecial Paste:=xlPasteValues

runtime error 1004
 

Adella,

I am sure there is an easier way, but doing a regular paste, unmerge, copy,
paste value will work.

ActiveSheet.Paste
Application.CutCopyMode = False
With Selection
.MergeCells = False
End With
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False

steve

"Adella" wrote in message
...

I am using the following code to open a file and copy data
to another file. There are some cells that have merged
cells which is creating a runtime error 1004 this operation
requires the merged cells to be identically sized. I
originally tried to copy a bigger range with the same
formats but that didn't work either. Does anyone have any
suggestions?

Thanks.

Dim schb2 As Range
Workbooks(myfile).Activate
Worksheets("Schedule B-2 By Premium Group").Visible =
True
Worksheets("Schedule B-2 By Premium Group").Activate
Set schb2 = Worksheets("Schedule B-2 By Premium Group
").Range("d13:d811")
schb2.Copy
Worksheets("Schedule B-2 By Premium Group").Visible =
False
ThisWorkbook.Activate
Sheet7.Activate
Sheet7.Cells(13, 4).PasteSpecial Paste:=xlPasteValues

runtime error 1004
 

Thanks!

-----Original Message-----
Adella,

I am sure there is an easier way, but doing a regular
paste, unmerge, copy,
paste value will work.

ActiveSheet.Paste
Application.CutCopyMode = False
With Selection
.MergeCells = False
End With
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=
xlNone, SkipBlanks:=
_
False, Transpose:=False

steve

"Adella" wrote in message
...

I am using the following code to open a file and copy
data
to another file. There are some cells that have merged
cells which is creating a runtime error 1004 this
operation
requires the merged cells to be identically sized. I
originally tried to copy a bigger range with the same
formats but that didn't work either. Does anyone have
any
suggestions?

Thanks.

Dim schb2 As Range
Workbooks(myfile).Activate
Worksheets("Schedule B-2 By Premium Group").Visible
=
True
Worksheets("Schedule B-2 By Premium Group").Activate
Set schb2 = Worksheets("Schedule B-2 By Premium
Group
").Range("d13:d811")
schb2.Copy
Worksheets("Schedule B-2 By Premium Group").Visible
=
False
ThisWorkbook.Activate
Sheet7.Activate
Sheet7.Cells(13, 4).PasteSpecial Paste:=
xlPasteValues


.