Automatically delete cell text and create bottom border

I have a table with alpha sorted names in column A. I would like to create a macro that will look at the text in A3, comparing it to A2. If they are the same, then delete the text in A3, and move on to compare A4 to A2. If A4 is different, then put a bottom border on A3:E3, and start new comparisons starting now with A4 and A5.

You can also use conditional formatting. Note: I'm using Excel 2003 and it gets flakey if more than one condition applies to a cell, so instead of bottom border on the last cell in a match, we can top border the first cell. This way, the last cell (and any middle cells) can be turned to a text color of white {white text color can be flakey too, you might need to format your full range to black text and then reapply the white conditional format}

Select your whole range of values you want the formatting to apply to, then Format / Conditional Formatting, change condition 1 to "formula is" and type the formula =A2<>A1 [this assumes your range starts at A2 and that A1 has a header that doesn't match] and click the format button, click the Border tab and set the TOP border as a line.
Now add another condition, change it to "formula is", type the formula =A1=A2 [again assuming your selected range starts at A2], click the format button and on the font tab change color to white.
You may need to manually put an underline border on your last row.