Valerie:

You can do this easily from the GUI without a macro.

1. Place your cursor in Row 3-A.
2. Hold the Shift key down and then use PageDown and/or the Arrow keys,
etc., to highlight the complete data range.
3. From the menu, select Edit, Go To, Special, Blanks.
4. With the "funny" range selected, build a formula:
a. Press "=" and then the UP arrow.
b. Hold the CTRL key down and then press ENTER.

Voila! All of the blank cells now have a formula that evaluate to the
Company number above.

5. Copy the range and use Paste Special, Values to convert the formulas to
values.

Now you can produce pivot tables or pivot charts to your heart's content.

HTH,

=Mac=

L. A. McClelland



"Valerie" wrote in message
...
On an imported worksheet I have a column that is mostly blanks with a
company
number when the report changes. I would like a macro to go to the first
filled in cell, copy it and paste it into every subsequent blank cell
until
the next company then copy and paste, etc to the bottom row. Ex:

Row-Value
1
2
3 - A
4
5
6 - B

Copy "A", paste to rows 4 and 5, copy "B", paste to following blank cells,
etc.

Thanks!