Copy doesn't work

[Demirion]

Hi, this code works:

Worksheets("Ark1").Range(Cells(1, 1), Cells(lRow, lCol)).Copy Worksheets("Ark2").Range("A1")

but I want to copy data from the second row it doesn't work and error is displayed "Run-time error 1004. Application-definded or object-defined error":

Worksheets("Ark1").Range(Cells(2, 1), Cells(lRow, lCol)).Copy Worksheets("Ark2").Range("A1")

What went wrong?

 

[Demirion]

Code didn't work because I used it "Application.CutCopyMode = False". Why did it cause only one cell to paste?

With Workbook1.Sheets("A")

 .Range(.Cells(2, 1), .Cells(lRow, lCol)).Copy
 ThisWorkbook.Sheets("Ark1").Range("A2").PasteSpecial xlPasteValues
Application.CutCopyMode = False

End With

All clear. Thank you.

 

[Fluff]

Why did it cause only one cell to paste?

difficult to tell as you haven't posted all the code, but best guess is that lrow & lcol are not what you think they should be.

 

[Demirion]

I thought it "Application.CutCopyMode = False" worked the other way so I have no idea why only one cell is pasted through it.

 

[Fluff]

That line just clears the clipboard & has nothing to do with it only pasting one cell.

 

[Demirion]

I know and it's weird because when I removed CutCopyMode it started working. Otherwise, it only pastes one cell. Unless I made a mistake. I don't get tired anymore. Thanks one more time.

 

[Fluff]

Glad to help & thanks for the feedback.

 

[Demirion]

One cell is pasted again. I tried to change lRow to xlDown and lCol to xlToRight and message displayed "Run-time error 1004. You cant paste this here because the Copy area and paste area aren't the same size. Select just one cell in the paste area or area that's the same size, and try pasting again." What's the problem?

 

[Demirion]

lRow = Cells(Rows.Count, 1).End.(xlUp).Row
lCol = Cells(1, Columns.Count).End.(xlToLeft).Column

Maybe there is something wrong with this?

 

[Fluff]

What are the actual values of those two variables?

 

[Demirion]

I already know what the problem is. Row in Column I gave at the very beginning of the macro and counted something else. So I understand that for each sheet I should do something like this?

With Workbook1
 With .Sheets("A")
lRow = .Cells(Rows.Count, 1).End.(xlUp).Row
lCol = .Cells(1, Columns.Count).End.(xlToLeft).Column
.Range(.Cells(2, 1), .Cells(lRow, lCol)).Copy
 ThisWorkbook.Sheets("Ark1").Range("A2").PasteSpecial xlPasteValues
 End With

 With .Sheets("B")
lRow = .Cells(Rows.Count, 1).End.(xlUp).Row
lCol = .Cells(1, Columns.Count).End.(xlToLeft).Column
.Range(.Cells(2, 1), .Cells(lRow, lCol)).Copy
 ThisWorkbook.Sheets("Ark2").Range("A2").PasteSpecial xlPasteValues
 End With
End With