Perhaps this might also do it here ..
Assuming data is in A1 down, of the structure as below:

1
1
1
2
2
3
3
etc

Put in B2: =IF(A2<A1,1,"")
Copy down

Kill the formulas in col B with an in-place:
Copy Paste special Check "Values" OK
--
Rgds
Max
xl 97
---
Singapore, GMT+8
xdemechanik
http://savefile.com/projects/236895
--
"Lost in Alabama" <Lost in wrote in
message ...
Hello,

I really could use some of your expert and excellent help with a problem I
am having in creating a macro to perform a search in "Column A" to locate
a
change in the data in that column and then move one column to the right
and
one row down and type "1" in that cell.

I really appreciate your help, and Have a Blessed Holiday Season.