Loop and IF help

Hello, I saw great examples but when I tried to change the ActiveCell to an actual cell address and it falls apart. I also tried using looping, next i, offset, ByVal etc. falls apart. I am attempting to do what I thought would be simple and that is shift the cell contents say: going from right to left, from Z4 to C4. In other words, I am wanting the previous cell's data kept in the new cell. I have a spreadsheet example of what I have working (but too lengthy for large data and what's not). Thanks for any help, gr8guitar@netzero.net