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?

Dim NR As Double
Dim ND As Double
Dim NRV As Double
NRV = 1
Dim NDV As Double
NDV = 1
Dim Sections As Range
Set Sections = Sheets("Map").Range("b2:g7")
Sections.Copy
Do Until NRV = NR
Sections.Offset(0, NRV * 6).PasteSpecial xlPasteAll
NRV = NRV + 1
Loop

Dim sv As Range
With ActiveSheet.UsedRange
Set sv = .Offset(1, 0).Resize(.Rows.Count - 1)
End With
sv.Copy


Do Until NDV = ND
sv.Offset(NDV * 6, 0).PasteSpecial xlPasteAll
NDV = NDV + 1
Loop

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