VBA help with borders.

I would like help with a code so that when I run my macro it will draw 1 thick border around all the cells that have text. The data starts on A6 till a possible J2887. There is data in each cell from a6 to j6 and so on and so on till the data ends that could be line 237 or 2000. So the box will always be a rectangle since every block always has data for each separate line. It changes each month so I need something that is flexible. The list will never go past 2887 lines. I already have the individual boxes around each cell I just want one that surrounds all of them automatically at the end of the macro. Don't want to use a conditional formatting in this case. I'm getting a basic report from a database and want to run the macro I've been building to make all the edits and resizing and coloring automatic so instead of a hour preparing it only takes a couple seconds. Appreciate any help

Excell 10

Thanks
Sam

Hi Sam,

Can you post a sample spreadsheet?

Attached it to the original. Where you see the green box is what I want except in black. Just changed the color to emphasize it. The only thing that can change is the length or shortening of the list with each report. Might have 12 now but. 1000 tomorrow. Just need that green box to be drawn automatically.

Thanks

Hi Sam,

I'll try to do something tomorrow. I tried but cannot help - if that's the right workbook, it's got dropbox messages all over it and it demands java script - sorry!