复制时出现运行时错误“1004”

Question

I'm getting the infamous Run-time error when I run this code, and I don't understand why:

With ThisWorkbook.Sheets("Data") .Range(Cells(row1, column1), Cells(row2, column1)).Copy End With

row1, column1 and row2 are all defined as Integers.

The error pops up for the second line of code.

Can I get some insight please?

Answer 1

You forgot the "." before Cells (as you are within the With scope of the Sheet Data)

With ThisWorkbook.Sheets("Sheet2")
    .Range(.Cells(1, 1), .Cells(2, 2)).Copy
End With

Tested the above example and now it works for me.

Answer 2

Where are you coping the range to. The proper format is

source.copy destination

Sheets("Count").Range("C2:D3").Copy Sheets("Count").Range("E2:F3")