copying cells

[UGAJIMMY]

i'm trying to repeatedly copy/paste a region of a spreadsheet that has text merged and centered.. the merge/center goes away every time i try to do it?

i'm currently trying to do this with

     Range("D2:G14").Select
            Selection.Copy
            ActiveCell.Offset(15 * yCount, 5 * count).Range("A1").Select
            ActiveSheet.Paste

thank you