Este fórum está sendo desativado

[AlanSantosexcel]

assim eu meio que criei algo

Range("A4").Select
Selection.End(xlDown).Select
Linha = ActiveCell.Row
LinhaAmais = Linha +1
Selection.End(xlDown).Select
Linhab = ActiveCell.Row
Rows("LinhaAmais :Linhab").Select
Selection.Delete Shift:=xlUp



mais deu erro
SE TIVER ALGO NOVO OU COMO ARRUMAR ESSE CODIGO

[alexandrevba]

Bom dia!

Tenta...

Código: Selecionar todos

.Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete Shift:=xlUp

Att

[AlanSantosexcel]

CONSEGUI REVISEI MEU CODIGO E ACHEI O ERRO OBRIGADO