DIMENSION cnamecol2(4) cnamecol2(1)="M" cnamecol2(2)="U" cnamecol2(3)="AC" cnamecol2(4)="AK" *------------------------------------------------------------------ FOR x = 1 TO 4 cvalue = ; cnamecol(x)+ TRANSFORM( nrow ) + ":" +; cnamecol(x)+ TRANSFORM( nrow + m.ncomptRow ) oWorkSheet.RANGE( cvalue ).Filldown cvalue = ; cnamecol2(x)+ TRANSFORM( nrow ) + ":" +; cnamecol2(x)+ TRANSFORM( nrow + m.ncomptRow ) oWorkSheet.RANGE( cvalue ).Filldown ENDFORthis code seems work...
>> oRange.entirerow.INSERT && bad because it do'nt copy the formulas >>>>
>o.Activesheet.Rows("9:9").Copy >o.Activesheet.Rows("9:9").Insert(xlDown) >>