Perfect!

Thanks all of you for your help. Eventually I am going to get around to
learning VBA for myself...thank goodness you all are out here to help until
then.

Diane

"Joel" wrote:

RowCount = 1
Do While Range("A" & RowCount) < ""
If Range("E" & RowCount) = "" Then
Range("A" & RowCount).Insert Shift:=xlToRight
End If
RowCount = RowCount + 1
Loop

"diaare" wrote:

I have a report that needs to be imported into excel from a text file and
formatted daily. I would like to automate the formatting process with a
macro, unfortunately, my VBA skills are not very good.

Could one of you please help me with the macro?

I think what I need it to do should be fairly simple.

If the cell in column e is blank then I want cells a, b, c, and d
(respectively) to all move one cell to the right. This should be be applied
to the entire set of data (usually about 350 rows)

Thats it.

Thanks in advance,
DIane