With Sheets(("ICS 214")
.range("D29:D46").clearcontents
.copy befo= Sheets(2)
end with

HTH
--
AP

"EAHRENS" a écrit dans le message de
...
I am running the following macro to add an additional sheet.

Sheets("ICS 214").Select
Sheets("ICS 214").Copy Befo=Sheets(2)
'
End Sub

The problem I have is it copies over some information from unlocked cells
that I would like to have blank on the new sheet. What can i add to the
macro
to have it copy the original sheet and automatically clear a group of
cells
such as d29-d46?