See if this works better:

Set "A" = to column of Base_KT

Dim LASTROW As Long

LASTROW = Cells(Rows.COUNT, "A").End(xlUp).Offset(1, 0).Row

ActiveCell.Copy Destination:=Cells(LASTROW,Range("Base_KT").Column )
--
steveB

Remove "AYN" from email to respond
"Pink Panther" wrote in message
...
I have a problem. and don't know how to solve it.....

First the situation....
I have a table on a worksheet. Every row in that table contains data but
some rows are hidden. Even the last row of that table could be hidden.
Now I want to add a new row (at the end) of the table, but when I do this
by using the code (see below), I goes wrong when the last row in the table
is hidden.
The problem is that the hidden row will be overwritten.....

ActiveCell.Copy Destination:=Range("Base_KT").End(xlDown).Offset(1 , 0)

Thanks in advance,

Paul Bleijlevens

PS: Range("Base_KZT) is the named cell in the upper left corner of the
table.....