Does it alternate like that all the way down? Vendor name then
market? If so, here is one possibility (not tested):
Sub foofer()
lRow = Range("A65536").End(xlUp).Row
For i = 3 To lRow Step 2
Cells(i, 1).ClearContents
Next
End Sub

andresg1975 wrote:
If someone can help me on this:
I have
column A
row1 28th street market
row2 051911 11/15/04
row3 able sewer
row4 040792 10/27/03
row5 acme awning
row6 026466 07/23/02

and so on,

i need to keep cells containing only vendor names in this column and clear
the rest, leaving them blank.

Thanks a lot for your help