Não entendi muito bem. vc diz todas as do Range("a20:b49")?
Seria isso:
If IsEmpty(Range("a20:b49")) Then Range("a20:b49").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Agora, não sei o que vc está escrevendo, mas eu acho que poderia fazer por linha:
Dim i As Integer
For i = 20 To 49
If IsEmpty(Cells(i, 1)) And IsEmpty(Cells(i, 2)) Then
Cells(i, 1).EntireRow.Delete
End If
Next
Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.
Gilmar
Postado : 29/10/2013 8:37 am