Need Help Altering Code

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.

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

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

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

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

Another option:

Please Login or Register  to view this content.

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

Oops. My mistake.

Please Login or Register  to view this content.

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?

Try:

Please Login or Register  to view this content.

Thank you that works.

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