Why do you copy H7 twice and do nothing with it.

Why do you insert two cells, but only delete one cell

what are you trying to do?

Maybe
With aWS
.Range("A1:A799").copy .Range("A2")
.Range("A1,H7").Value = .Range("H1").Value
End With

--
Regards,
Tom Ogilvy




--
Regards,
Tom Ogilvy


"N+" wrote:

hi evrybody !! can anybody make this code more economic for my cpu?? (it is
not a big problem, but maybe there is something better)
ty..!! this is part of code of a macro called every 2 seconds..

aWS.Range("H7").Value = aWS.Range("H1").Value
aWS.Range("H7").Copy
aWS.Range("A1").Insert Shift:=xlDown
aWS.Range("H7").Copy
aWS.Range("A1").Insert Shift:=xlDown

aWS.Range("A801").Delete Shift:=xlUp