Not Copying Borders of range

Hi, I have a macro that builds a grid to use as a map, my sheet starts with a 36 cell range from B2:G7 that is already filled out and formatted correctly. Each cell has a thin border, and there is a thick border that encloses all 36 together. To build the map my code copies the range from B2:G7 and offsets it. Everything works as it should except I lose the thick border around my range. Does anyone know how I can modify my code so that the thick border will be copied and pasted as well?

Please Login or Register  to view this content.

NR and ND are variable that are given values through a lot of calculation that i omitted from this posting