I am trying to find specific information on a page and paste it i
certain rows.
this is what i have so far for the first two pages (but there is
total of 95 pages):
Columns("D:D").Select
Selection.Insert Shift:=xlToRight
Range("D8").Select
ActiveCell.FormulaR1C1 = "=RIGHT(R[-3]C[-3],2)"
Selection.Copy
Range("D9:D63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=11
Range("D74").Select
ActiveCell.FormulaR1C1 = "=RIGHT(R[-3]C[-3],2)"
Selection.Copy
Range("D75:D129").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=11

Is there an easier way

--
acarri
-----------------------------------------------------------------------
acarril's Profile: http://www.excelforum.com/member.php...fo&userid=1002
View this thread: http://www.excelforum.com/showthread.php?threadid=26204