Bom dia fairbanks!
Por favor, verifique se o código abaixo atende o que vc precisa.
Coloquei em anexo um arquivo com a macro já inserida em um botão, caso vc precise testá-la:
Option Explicit
Sub deletar()
Dim iLastRow As Long
With Sheets("BD")
.Visible = True
.Unprotect "B"
.Select
iLastRow = .UsedRange.Rows.Count 'Conta o nº de células preenchidas na aba atual
'MsgBox iLastRow 'teste para verificar se o código buscou a última linha preenchida
.Rows(iLastRow).Delete 'deleta a linha toda, onde o nº da linha é definido no iLastRow
.Protect "B"
.Visible = False
End With
Sheets("MATRIX").Select
End Sub
Leia as REGRAS
Utilize arquivos COMPACTADOS
PESQUISE
AGRADEÇA clicando na mãozinha ao lado da ferramenta citar.
Marque o tópico como [Resolvido], clicando no √ ao lado do botão citar.
Abraços,
Murilo L
------------
e-mail: [email protected]
skype: fareva_mlima
Postado : 28/11/2014 7:38 am