Copy area and paste area size error

[Manoj Gaidhankar]

Hi there,

Please find the following code:

With Workbooks("Sheet1.xlsx").Worksheets(1)
    .Range("BC2", .Range("BC" & Rows.Count).End(3)).SpecialCells(xlCellTypeVisible).Copy
  End With
  Workbooks("Sheet2.xlsx").Worksheets(2).Range("H" & Rows.Count).End(3)(2).PasteSpecial Paste:=xlPasteValues
  Application.CutCopyMode = False

By using this code all the columns data are getting copied and it is throwing an error. Is there any alternate way for this.

Thank you.

 

[Manoj Gaidhankar]

I have raised the similar concern in the below forum:

Copy area and paste area error

Hi there, I'm stuck at a place where I'm not able to paste the data under the last row. This code used to work perfectly fine in the beginning. But now it copies all the columns and when tries to paste throws the error. With Workbooks("Sheet1.xlsx").Worksheets(1) .Range("BC2"...

www.excelforum.com

 

[DanteAmor]

What does the error message say?
Which line in the macro do you have the error?

 

[Manoj Gaidhankar]

The issue has been fixed as there were few hidden files due to which data was incorrectly copied and also there was an internal error due to which it happened. Thank you for your interest.