VBA - Cut from one sheet paste on another, "Cut method of Range class failed"

[RockandGrohl]

Hello all.

Having this issue now. I was using a standard "Lastrow" declaration but it was putting to the bottom of the table range. Instead I need "Lastrow" to hold the bottom of the active cells in data, and then paste the cut line below it so it appends the table.

Set F = Worksheets("Flights")Set C = Worksheets("Cancellations")


F.Activate


Dim Lastrow As Long




Lastrow = F.ListObjects("Table1").Range.Columns(1).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row




C.Activate


ActiveCell.EntireRow.Cut F.Range("A2:A" & Lastrow).Offset(1, 0)
ActiveCell.EntireRow.Delete


End If
End If

So it needs to go into F, declare the Last Row, this successfully declares as row 111 (instead of row 240)

Then it switches to C, cuts the row. This successfully cuts (I'm assuming)

Then it pastes in F, on column A's 'Lastrow' which is still held as 111, +1, so paste on 112 which should be the first empty line.

Just to clarify because my wording is awful, I now successfully select the correct last row, but now my cut-paste, which worked before, is not working.


This gives me the above error message, cut method of range class failed

Any ideas? Thanks.

 

[Fluff]

Try

ActiveCell.EntireRow.Cut F.Range("A" & Lastrow).Offset(1, 0)

 

[RockandGrohl]

Try

ActiveCell.EntireRow.Cut F.Range("A" & Lastrow).Offset(1, 0)

That was a silly mistake on my part, hey!

Thanks very much Fluff, really appreciate it

 

[Fluff]

You're welcome & thanks for the feedback