Including a special line in my border's macro

I was graciously provided with the following code (by PCI) which would allow me to highlight any part of my spread sheet and apply the borders I wanted.

Please Login or Register  to view this content.

I have discovered that with all my selections that I need to place a different border type on the 4th cell down and across how ever many columns.
Is there something that can be inserted into the above code to do this each time.
I have attached a sample of what I need just to clarify. Thank you for any assistance anyone can offer.
Borders.xlsx