Is this code right?

[usmrncrps]

I'm looking to see if this line is correct?
My desired effect is to have Cell A2 of the Equipment Sheet or Sheet1 to be inserted at the bottom of a continuous list on the Graph Sheet or Sheet2.

Sheets ("WsEquipment").Range ("A2").Copy Destination:=Sheets ("WsGraphs").Range("Date").End(xlDown).Offset(1, 0)

 

[Aaron Blood]

It might be fine as-is...

But typically when specifying the next available row to paste something I prefer to start at the bottom of the sheet and work up. Your code might be OK, if the target paste sheet is already populated with data. However, if you clear it out, you might find that your code wants to try to paste info to the last cell on the worksheet offset by an additional row, which is impossible.

I also prefer to let the code determine what is the last possible row of a worksheet as the starting point. This is based on my prior experience developing code in older versions of excel that did not have so many rows. I hardcoded 65536 as the last row in some old macros that would be nowhere near the last row of a worksheet in modern versions of Excel.

So if it were me; my code might look like...

    Dim PasteSht As Worksheet
    Set PasteSht = Sheets("WsGraphs")

    
    Dim TargCol As Double
    TargCol = Range("Date").Column

    Sheets("WsEquipment").Range("A2").Copy Destination:=PasteSht.Cells(PasteSht.Rows.CountLarge, TargCol).End(xlUp).Offset(1, 0)

 

[usmrncrps]

Question Withdrawn. I resolved my problem.