CODEWITHSUNDEEP
vbaexcelmacros
SaM
SaM

Reputation: 11

Add row in a table and mantain formulas

I would like add the last but one row in few tables and mantain formulas (copy the formula - for example in the row before - and past on the blank row). The first step (add the last but one row) doesn`t work. Someone can help me, please?

The code is:

`Sheet18.Activate
With Sheet18
last_row_with_data = .Range("A65536").End(xlUp).Row
last_row_with_data = last_row_with_data - 1
ActiveSheet.ListObjects("Pessoal").ListRows.Add (last_row_with_data)
End With`

Upvotes: 0

Views: 72

Answers (1)

user3598756
user3598756

Reputation: 29421

Try this

With Sheet18.ListObjects("Pessoal").ListRows
    .Add(.Count)
End With`

Upvotes: 1

Related Questions