Extend Border line

Hello, all.
I need a macro to extend border line refer to the previous . The previous border line are ended at column G. I want to extend it to column AA. Is that possible to be done using a macro? Because i got numerical border lines. And here is an example. Please see the attachment.
Thank you!

Croos-posted at VBAExpress http://www.vbaexpress.com/forum/showthread.php?t=32598