Excel Macro Recortar e cola

[Christian Ricken de Souza]

Boa tarde

 

Tenho uma planilha onde tenho uma base aonde eu alimento manualmente e uma aba de registro, gostaria de criar uma macro aonde eu conseguiria Recortar as informações da Base e colar no registro porém não estou conseguindo.

 

Obs: Gostaria de recortar a coluna A e L e colar em registros na coluna A e B na ultima linha em branco

 

https://www.sendspace.com/file/90tgl5

 

Tentei o código abaixo porém não copia as duas colunas e também não apaga

 

"Sub TESTE()
  Dim LR As Long 'retorna o número da última linha com conteúdo na coluna
    LR = Sheets("registro").Cells(Rows.Count, 1).End(xlUp).Row
  Sheets("Controle_Trat_Filial").Range("A5:A99").Copy Sheets("registro").Range("A" & LR + 1)
End Sub"