Counting cells in a column to add formulas to that equal number of cells

[flipjarg]

What I am trying to do is count how many cells have data and then drop in formulas in some cells to the right, according to how many cells I have counted as NOT being empty. Attached is a picture that may more clearly explain what I am trying to do.

There must be a better way to do this... because what I have isn't working this is where my macro is running into problems:

Please Login or Register  to view this content.

[StevenM]

Maybe something like:

Please Login or Register  to view this content.

[flipjarg]

Hey, this works great! Now I just need to do some reading so I understand how it works!

[StevenM]

Please Login or Register  to view this content.

In an Excel Spread sheet use Ctrl + an arrow key. Up, down, left, and right.

Rows.Count is the last row in a spread sheet.

Cells(Rows.Count, "B") is the last cell in column B.

End works like Ctrl+ arrow key.

End(xlUp) = Ctrl + up arrow key.

So Cells(Rows.Count, "B").End(xlUp) is the last cell in column B with data.

.Row gives the row where that cell is located.