I think it could be a couple of things:
http://support.microsoft.com/kb/210684
http://support.microsoft.com/kb/818808
Can you select the destination cell and paste-special-values?
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Thats what I do and I never get the Error 1004 (well almost never).
Are those Named Ranges? I cant seem to recreate what you have, but I would
surmise that the code needs to be something like this:
ErrorWS.PasteSpecial Destination:=ErrorWS.Range("A" & ErrorRow)
ErrorWS.PasteSpecial Destination:=ErrorWS.Range("B" & ErrorRow)
€˜etc.
Ryan---
--
RyGuy
"Alan" wrote:
I am copying and pasting some entries (entire rows, one at a time)
from one worksheet (NewDataWS) to another worksheet (ErrorWS) in the
same workbook. This code works fine:
NewDataWS.Cells(i, FirstNameCol).EntireRow.Copy
ErrorWS.Paste Destination:=ErrorWS.Range("A" & ErrorRow)
I want to place another value (not in the source row) in the
destination worksheet for each row, as I process it. However, when I
change the second line to start at Column "B", like below:
ErrorWS.Paste Destination:=ErrorWS.Range("B" & ErrorRow)
I get the following runtime error:
"Runtime error 1004
The information cannot be pasted because the Copy area and the paste
area are not the same size and shape. . . . "
Since I am just specifying the starting cell, I do not understand
why I get this. Do you?
Thanks in advance, Alan