please help simplify

[acarril]

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").Select
Selection.Insert Shift:=xlToRight
Range("D8").Select
ActiveCell.FormulaR1C1 = "=RIGHT(R[-3]C[-3],2)"
Selection.Copy
Range("D963").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("D75129").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=11

Is there an easier way

 

[Tom Ogilvy]

The code you show doesn't find anything.
for what it appears to do, you could do

Sub AddColumnD()
for each sheet in ThisWorkbook.worksheets
sh.Activate
set rng = Range(Cells(5,1),Cells(rows.count,1).End(xlup))
columns(4).Insert
rng.copy
Range("D8").PastSpecial xlValues

for each cell in rng.offset(3,3)
cell.Value = Right(cell.Value,2)
Next

' if you want to skip D6573 uncomment the next line
'Range("D6573").ClearContents
Next
End Sub