just make it like this one.like original one is on sheet1.cells(1,1) and you
want to cut it to sheet2.cells(2,2)


so:

sheet2.cells(2,2)=sheet1.cells(1,1)
sheet1.cells (1,1)=""

I'm sorry, but your question is confusing.
I think I can guess at what you REALLY mean, but
if I did, I probably would guess wrong and waste both of our times.
You want to make a list  of items  in one ROW,
COPY them to another location.
then, DELETE the item  from the first COLUMN.
when did something show up in a column? I thought the data was in a row?
Now, if you actually have copied  the contents from one cell  to another,
what you do to one cell will have no affect on the other cell.
but then you said that you want the copied cell to be blank  instead of "0".
That implies that you are not copying the cell from one location to another,
but are using some formula, which results in "0" when the source cell is empty.
Before I continue on a path that doesn't end up anywhere near where you were
going, could you give me some more specifics?
even examples?

I have all 30 hockey teamas liste in colum A, I want to record each
particpatnts picks for the game in colums B-? (depenging on # in pool)
(was using =a1 etc) then I want to delete  the team that lost leaving
the winning teams showing. This way it is easier for me to calculate
the person who has the most right. But when I delete the team from
Colum A I get zeros in the cell  where I had the =a1.
Does this make any more sense? I could save the spread shette as
html and post the link so ou can see what I am doing.

Ah.. see that wasn't so hard!!! (grin)
You're not COPYING the cell, you have a FORMULA in the "other" cell.
Try using this formula:
=IF(A1<>"",A1,"")
That way, if A1 is blank, then this cell  will have a blank.
If A1 has a value, then this cell will show that value.
hope this helps.

The countblank formula will not work with this sheet as the cells actually
have formulas in them now. Or can it be edited?

I just did a test:
my sheet:
A B
-- --
A =IF(A1<>"",A1,"")
B =IF(A2<>"",A2,"")
C =IF(A3<>"",A3,"")
D =IF(A4<>"",A4,"")
E =IF(A5<>"",A5,"")
F =IF(A6<>"",A6,"")
G =IF(A7<>"",A7,"")
H =IF(A8<>"",A8,"")
I =IF(A9<>"",A9,"")
J =IF(A10<>"",A10,"")
K =IF(A11<>"",A11,"")

=COUNTBLANK(B1:B11)

the countblank was "0", then I deleted "C"
and the countblank was 1
Deleted a few more, and it counted properly.
What do your formulas look like?
Can you send me the file directly?