cut cells and paste to table on separate worksheet/table on button click

One way to find the last data row is

Please Login or Register  to view this content.

That's assuming there is always data in column A. If not, use a column where every row will have data.

Originally Posted by natefarm

One way to find the last data row is

Please Login or Register  to view this content.

That's assuming there is always data in column A. If not, use a column where every row will have data.

The "+1" would give the first empty row, not the last data row?

Yes. The .End method is the same thing as pressing Ctrl+arrow (with arrow being one of the arrow keys), so .End(xlup) is the same as Ctrl+up arrow. Rows.count puts you at the maximum spreadsheet row, up-arrow puts you at the first data found in the up direction, and plus 1 puts you in the next available row. Same could be done to find the first available column using columns.count and .End(xlToLeft) + 1.

Using the macro recorder is a great way to find code that does what you need, but don't get hung up on the results. Recording exact keystrokes produces a lot of unnecessary code, such as selecting cells or ranges, scrolling, switching tabs, etc. Rarely is the .Select method needed in final code.

Well, that's exactly what you're telling it to do with Activesheet.Paste. You obtained the endrw value, but didn't use it.

Please Login or Register  to view this content.