Autofilter & row Delete Result to automatically border itself

[30136353]

Hi guys,

Im using the below code, to filter a criteria to a selection of cells which have a thick border around them, 9/10 times the code will then be delete the bottom row and a couple more rows above. This leaves me with a thick border around the top of the cells, left + right side but not on the bottom. How I can have the reamaining cells after this code to have a medium border on the bottom?

Thanks.

With Range("A19:N122")
.AutoFilter Field:=3, Criteria1:="---"
ActiveSheet.Range("A19:N122" & Lines).Offset(1, 0).SpecialCells _
    (xlCellTypeVisible).EntireRow.Delete

 

[Fluff]

Duplicate Dynamic Border

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).