Shift formulas, but not formats

I am trying to insert a row that duplicates formulas, and shifts the
other rows down. This works great, changing the cells exactly as I want
them:

Public Sub InsertFiscalMonthData()

Sheets("DATASUMMARY").Select
Application.CutCopyMode = False
With Rows("2:2")
.Copy
.Insert Shift:=xlDown
End With

End Sub

....EXCEPT...

I want the first 12 rows to have a bold border around them. When I
insert the row, the border grows with it.

Is there any way to suppress the border reformatting?

Thanks!

Joel,

I think you'll have to erase and reborder the region after you
insert the cells.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"JoelW" <jswisehe@rockwellcollins.com> wrote in message
news:1122660438.404617.260860@g44g2000cwa.googlegroups.com...
>I am trying to insert a row that duplicates formulas, and shifts
>the
> other rows down. This works great, changing the cells exactly
> as I want
> them:
>
> Public Sub InsertFiscalMonthData()
>
> Sheets("DATASUMMARY").Select
> Application.CutCopyMode = False
> With Rows("2:2")
> .Copy
> .Insert Shift:=xlDown
> End With
>
> End Sub
>
> ...EXCEPT...
>
> I want the first 12 rows to have a bold border around them.
> When I
> insert the row, the border grows with it.
>
> Is there any way to suppress the border reformatting?
>
> Thanks!
>