Sorry, should have gone back to your original code. Try this.

Range("CopyEvaluate").Select
Selection.Copy
Sheets("Database").Select

Range("FormNumber").Select
Do Until ActiveCell = Range("B2").Value
ActiveCell.Offset(1, 0).Select
Loop

ActiveCell.Offset(0, 76).PasteSpecial
Paste:=xlPasteValuesAndNumberFormats _
, Operation:=xlNone, SkipBlanks:=False, Transpose:=False


"pkeegs" wrote in message
...
I have the following section of code copied from another macro. The only
difference to the macro I have copied is the
"ActiveCell.Offset(0,76).Select"
code. The Macro finds the correct cell but then stops at the PasteSpecial.
"CopyEvaluate" is a 4 cell range being copied into a location in another
sheet "Database". Has anyone got any thoughts as to why the Macro will not
paste when it works perfectly in the original macro?

Range("CopyEvaluate").Select
Selection.Copy
Sheets("Database").Select

Range("FormNumber").Select
Do Until ActiveCell = Range("B2").Value
ActiveCell.Offset(1, 0).Select
Loop

ActiveCell.Offset(0, 76).Select

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False