Amigos, boa tarde.

Mais uma vez peço ajuda.

criei um código para que atenda a alguns exigencias, e que se cumpridas, delete a linha inteira a partir da célula ativa.
Porém não estou conseguindo o código para excluir a linha.

segue meu código.

"Sub excluirlinhas()

Dim x As Object

Range("A2").Select

Do While ActiveCell.Value2 <> ""
ActiveCell.Offset(0, 1).Select
If ActiveCell.Value = "" Then
ActiveCell.Offset(0, 3).Select
If ActiveCell.Value = "" Then
ActiveCell.Offset(0, 2).Select
If ActiveCell.Value = "" Then
target.Cells.entirerows.Select
Selection.Delete shift:=xlUp
Else
MsgBox "tente de novo"
End If
Else
MsgBox "errou aqui"
End If
Else
MsgBox "errou neste"
End If
Loop

End Sub"

desde já obrigado.