chijanzen:
just curious what you sig is. it only shows up as boxes and takes longer to
download than other posts?

--


Gary


"chijanzen" wrote in message
...
Rich:

try,

For Each sh In Worksheets(Array("Jan", "Feb", "March", _
"april", "may", "June", "July", "Aug", "Sep", "Oct", "Nov", "Dec",
"Overview"))
With sh
'sh.Rows(x).Insert
.Range("B17:e17").Copy .Range("B16")
End With
Next sh

--
???,???????
???,???????

http://www.vba.com.tw/plog/


"Rich" wrote:

am trying to get the following code to copy data from the row below the
row
it inserts a new line, instead of the fixed (copy from 17 and paste into
16
as it is at the min

Thanks



For Each sh In Worksheets(Array("Jan", "Feb", "March", "april", "may",
"June", "July", "Aug", "Sep", "Oct", "Nov", "Dec", "Overview"))
sh.Rows(x).Insert
Range("B17:e17").Select
Selection.Copy
Range("B16").Select
ActiveSheet.Paste
Next sh