Place a Bottom Border in a Table via a Macro
 

I have a Worksheet that has a macro runing against it. The Macro adds
columns and formulas, it autofilters the data and sorts the data.
Column I is sorted ascending and contains numbers between 2 and 9. My
aim is to format a bottom black line in the row for every change in
column I. The table contains 14 colums and 150 rows. For example, cell
I15 has a 2 in it and cell I16 has a 3 in it, then, I'd like a bottom
black line displayed on row 15.

I've been unable to do this in a formula either, it seems that because
at autofilter has been used not all of the row are displayed. The
result is I get more black lines than needed.

Thanks for the help,

Pat K