Inserir linha no fim da tabela

tiagoagostinho · Ter Out 25, 2016 11:13 am

Bom dia,

criei uma macro para inserir linha no fim da tabela. Mas ela sempre fica inserindo linha no meio da tabela, já que foi a linha que selecionei para gravar a macro.

Tem como fazer pra inserir linha sempre no final da tabela? Lembrando que são várias tabelas em uma só planilha (aba).

Código: Selecionar todos


Sub InsTri()
'
' InsTri Macro
'

'
    Rows("68:68").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveWindow.SmallScroll Down:=8
    Range("A68").Select
End Sub

Agradeço desde já!