Miriam

something like:

Range(Activecell,Activecell.Offset(0,5)).Select

You might want to check that the Active cell is in Column A

You don't need to select the cells though:

Range(Activecell,Activecell.Offset(0,5)).Delete Shift:=xlUp

Regards

Trevor


"Miriam" wrote in message
...
Hi, does anyone know how to select a range of cells without using exact
references?

Basically what I want to do is

If a20 = blank or zero, I want to delete cells in that row from a to f
(then I will test the next cell)

(Selection.Delete Shift:=xlUp)