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
Postado : 29/10/2013 8:37 am