Need Help Altering Code

[basketball2524]

I have the following Code:

Please Login or Register  to view this content.

Right now it inserts a Row when the values in Column A dont match. I need it to do this but to also start from the last known value in Column A because it stops once it reaches an empty cell and after it inserts the row it runs into an empty cell which stops the macro. Also I have color Values on some of the cells. So when it inserts a new row it carries over the color value. Is there a way to insert a blank row? Thanks for any help.

[LiveAptly.com]

Just giving this a quick look.
I think you need another rows = rows + 1 before the Else
so
Cells(rowx + 1, 1).EntireRow.Insert
rowx = rowx + 1
Else
rowx = rowx + 1

That might solve the first problem

[trevor2524]

That's what I thought also but that ended up freezing my program for some reason.

[LiveAptly.com]

Have you declared the variable.
try
Sub InsertBottomRow()
Dim rowx As Long
Range("A3").Select

[basketball2524]

Thanks LiveAptly.com I've tried both of those options but nothing has worked for me.

[JOHN H. DAVIS]

Another option:

Please Login or Register  to view this content.

[basketball2524]

Thanks John that almost works the way i need it. I included a sample Sheet. Column A shows the type of information I'm dealing with. Column C shows how I would like it to look after a new row is inserted.

TestShift.xlsx

[JOHN H. DAVIS]

Oops. My mistake.

Please Login or Register  to view this content.

[basketball2524]

Thanks John that works. Just one last thing from my original question. Is there a way to make the new row clear since it will sometimes carry over the color value in the row above?

[JOHN H. DAVIS]

Try:

Please Login or Register  to view this content.

[basketball2524]

Thank you that works.

[JOHN H. DAVIS]

You're welcome. Glad to help out and thanks for the feedback.