Bom dia,

Diariamente recebo uma planilha com valores positivos e negativos,

Meu objetivo principal era excluir as linhas onde os valores estão entre 1 e -1 ( Ex.: 0,1 ; -0,05 ; 0,3...)

Mas não consegui, então criei uma macro com botão para excluir os valores menores que 1, mas quando clico no botão ele só exclui algumas linhas,

Tenho que clicar varias vezes no botão para dar certo,

alguém pode me ajudar ?

Private Sub btExecuta_Click()
Dim W As Worksheet      ' variavel W como planilha
Dim UltCel As Range        ' varialvel como celula

Set W = Sheets("Plan1”) 
Set UltCel = W.Range("O200").End(xlUp)   

W.Select                
W.Range("O2").Select    

'Faça enquanto a célula ativa for <> vazio
Do While ActiveCell.Value <> ""
        If ActiveCell.Value < 1 Then
         ActiveCell.EntireRow.Delete
        End If
   ActiveCell.Offset(1, 0).Select
Loop
End Sub