Hey, thanks very much, that got me down the right road!

Harold

"slarbie" wrote in message
...
Sub CostCtrNewRow()

Dim myRow As Long

myRow = ActiveCell.Row
Do Until Cells(myRow, 2) < Cells(myRow + 1, 2)
myRow = myRow + 1
Loop
Rows(myRow + 1).Insert

End Sub


"Harold Good" wrote:

Hi,

I'm new to VBA but didn't find the help I need online. I'd like some
simple code to enable a client to add a new row to a budget cost center.
There may be 20 cost centers, each with 4 rows for entering budget
information in the budget form I give them. But some cost centers will
need more detailed descriptions, thus another row or two may need to be
added by the client.

I would like for them to be able to click once in any of the 4 rows (to
make it the active cell) in a given cost center (the fifth row is a
summary row), then either click a button or a execute key combination to
add a new row within that cost center.

1. So the first thing the code needs to do is go to Column B while
staying in the current row. I don't know how to do the code for this.

In Column B every cell has a Cost Center number. B5:B10 might be 64400;
B11:B15 might be 63300.

2. So after the code arrives in Col B, I'd like it to move down until it
finds the first cell which is not equal to the cell above it. That is
where I'll insert the new row, keeping it within the same cost center
rows.

If anyone can help with some code to do these two steps, I'd really
appreciate it!

Thank you,
Harold