Excel localizar ultima linha preenchida tabela e adicionar

[RAIMUNDO LIMA DE ARAUJO]

Boa noite, 

 

Pessoal, alguém pode me ajudar ? 

Estou usando a planilha no formato tabela, gostaria de executar o comando para inserir uma nova linha, ou seja, o codigo identifica na tabela a ultima linha preenchida e insere uma abaixo. 

 

 

[Matheus Patrick]

Esta usando VBA??

irei passar comando a ser inserido no bt Inserir Linha

 

 

Sheets("Aba_Atual").Select 'coloque a aba atual

If Range("C3").Value <> "" And Range("C4").Value <> "" Then 'coloque as celulas a serem preenchidas, apenas para verificar se
															'não esão vazias((opcional))
    
    Dim new_line As Double 'var que salva a nova linha
  
  
    new_line = Sheets("Aba_Atual").Range("B2").End(xlDown).Row + 1 'substituia a celula B2 pela primeira celula da tabela
    
    
    Cells(new_line, 3).Value = Range("C3").Value 'cells (linha, coluna) em indices numericos.
    Cells(new_line, 4).Value = Range("C4").Value 'new_line, é uma var mutavel a cada incremento, mas a coluna é fixa
    Cells(new_line, 5).Value = Range("C5").Value 'coloque as colunas de acordo com sua tabela
    Cells(new_line, 6).Value = Range("C7").Value ' depois o "=" as celulas preenchidas pelo usuario
    Range("A10").Select 'a celula que deseja colocar após a inserção como selecionada;

 

[DJunqueira]

ActiveSheet.ListObjects("Table1").ListRows.Add AlwaysInsert:= True

 

[Matheus Patrick]

A var "new_line" pega:

Sheets("Aba").Range("Celula").End(xlDown) isso signifca ctrl+seta para baixo .Row(Linha) vair retornar o numero daquela linha + 1 Linha = próxima linha