That means they must not actually be blank. Do you have formulas in them
(not blank). Or did you clear them by hitting the spacebar (not blank).

I ran it on a sheet that actually had blank cells in column A and it worked
perfectly.

Guess you will have to clean up your data or go with Markus's code.

--
Regards,
Tom Ogilvy

"Michael Koerner" wrote in message
...
Tom I tried your macro, and all I got was the message "No blank Cells

--

Regards
Michael Koerner


"Tom Ogilvy" wrote in message
...
or, if the cells are really empty/blank, a quicker approach would be

Sub ABCD()
dim cell as Range
On Error Resume Next
for each cell in Activesheet.columns(1).Specialcells(xlBlanks)
cell.Value = Cell.offset(0,1).Value
' uncomment the next line if you want
' the value in B cleared
'cell.Offset(0,1).ClearContents
Next
if err < 0 then
msgbox "No Blank Cells
err.clear
End if
End Sub

--
Regards,
Tom Ogilvy

"Markus Scheible" wrote in message
...
Hi Michael,

try:

For i = 1 To 65532

If Range("a" & i).Value = "" Then Range("a" & i).Value =
Range("b" & i)
End If

Next i

Best

Markus



-----Original Message-----
I need to move the data from Col B to Col A only if the
cell in Col A is empty.
Is there an easy way to do this?

--

Regards
Michael Koerner



.