Sub GetData()
Dim cLastRow
Dim i As Long
Dim j As Long

cLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To cLastRow
If Cells(i, "A").NumberFormat Like "*d*" Then
For j = i + 1 To cLastRow
If Cells(j, "A").Value = "" Then
Exit For
End If
Next j
Range(Cells(i+1, "A"), Cells(j - 1, "A")).ClearContente
i = i + j - 1
End If
Next i
End Sub


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"vikram " wrote in message
...
thanks bob!

ok, can we have a macro which upon finding the date format in a cell ,
clears not deletes the cells below it till a blank line appears below
those cells

like if a date cell is A2, it clears A3&B3 in case if there is only one
row of data below date cell

in case there are more cells , it deletes all

thank u so much for ur help


---
Message posted from http://www.ExcelForum.com/