I finally got it to work from the code below:

Sub Uhrs()
'
' Uhrs Macro
' Macro recorded 7/3/05 by Abay
' Keyboard Shortcut: Ctrl+h
'
ActiveSheet.Previous.Select
Range("B29").Select
Selection.Copy
ActiveSheet.Next.Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
End Sub

Many thanks again for your help Tom & Alan you pointed me in the right
direction.

Much appreciated!

Abay