I just want to delete the first and third row if column "A" is blank. THis
script deletes the first row. I need to add to the range the 3rd row. Can
you help me change the range?

thanks,


Sub deleteDateRow1()

Dim Rng As Range

Set Rng = Range("A1")

With Rng
If Columns("A").SpecialCells(xlCellTypeBlanks) Then


..EntireRow.Delete Shift:=xlUp


Else
Exit Sub
End If
End With
End Sub