boa tarde,

estou a criar um código para eliminar linhas da coluna K que contenham zeros:

Sub eliminarzeros()

Dim linha As Long
linha = Range("K" & Rows.Count).End(xlUp).Row

Dim k As Range
Dim SrchRng
Dim lstRw As Integer

Sheets("BookAN_C").Select
Range("K8:K" & linha).Select

Set SrchRng = ActiveSheet.UsedRange
Do
Set k = SrchRng.Find(0, LookIn:=xlValues)
If Not k Is Nothing Then k.EntireRow.Delete
Loop While Not k Is Nothing

mas quando corro a macro, este codigo tambem elimina linhas com valores como: 0,9; 0,6555.. e eu só quero eliminar as que tenham valor = 0