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?

 

[Fluff]

That code can't even run.

 

[Demirion]

How to make this macro properly?

 

[Fluff]

You have still not answered my question, so I don't know.

 

[Demirion]

I did as before, i.e. I gave lRow and lCol at the beginning. They have lRow=63 and lCol=1

 

[Fluff]

In that case your code should paste A2:A63 from one sheet to the other.

 

[Demirion]

Where to put lRow and lCol so that it works properly for each of the sheets that are different from each other? I don't know where these numbers came from, the values should be completely different.

 

[Fluff]

There is nothing wrong with the code I suggested & as I said before there should not be a problem.
Without your workbook I have no idea what the problem is. Also you just keep posting different bits of code, so I have no idea what your real code is.

 

[Demirion]

But I showed everything most important. Just tell me how to make lRow and lCol work properly or how to do it without variables? The idea is to copy data from multiple sheets from one workbook to another workbook to multiple sheets.

 

[Fluff]

I cannot tell you that because I have no idea what you are trying to do, what your data is like or the rest of your code is.
As your original question has been answered, if you need more help then you need to start a new thread.

 

[Demirion]

Dim Workbook1 As Workbook
Dim lRow As Long
Dim lCol As Long
lRow = Cells(Rows.Count, 1).End.(xlUp).Row
lCol = Cells(1, Columns.Count).End.(xlToLeft).Column

With Workbook1
  With .Sheets("A")
  .Range(.Cells(2, 1), .Cells(lRow, lCol)).Copy
  ThisWorkbook.Sheets("Ark1").Range("A2").PasteSpecial xlPasteValues
End With

With .Sheets("B")
  .Range(.Cells(2, 1), .Cells(lRow, lCol)).Copy
  ThisWorkbook.Sheets("Ark2").Range("A2").PasteSpecial xlPasteValues
  End With
End With

This is what my code looks like. So you're saying that everything is fine with it and lRow and lCol should work fine for all sheets?