Finding the last row of a NAMED table

[yoyoma123]

Sorry if I seem like I'm beating a dead horse, but I cannot seem to figure this out or find any similar questions.

I have a named table "Table1" that I want to continue appending data to the bottom of through the use of a macro. currently the code I have is:

Sheets("Sheet1").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste

The problem is that there is always an empty row between the table's header and the start of where the data starts copying. I have fixed this by changing the offset to (0,0) for the first paste and back to (1,0) for the subsequent pastes. However, this is actually going to be a "template" of sorts for multiple groups in my organization to use, and I do not want everyone to go in and adjust the code for the first use.

Any help?

 

[Jonmo1]

Welcome to the board..

Perhaps you should look at the method of copying, to try to remove the blank row.
You Might be able to use something like

Range(...).specialcells(xlcelltypeConstants).Copy

Can you post the relevant code that does the COPY..