Hi Mick

Here's a sample:
Sub CopyFromAbove()
On Error GoTo Error
ActiveCell.Value = Cells(ActiveCell.Row - 1, ActiveCell.Column).Value
Error:
Exit Sub
End Sub

CU
Mike

"Materialised[Work]" schrieb im Newsbeitrag
om...
Hi All,

I am wondering if anyone would be kind enough to provide me with a
code sample (and maybe a explanation) of how to copy the cell above
the active cell and paste it into the active cell from a macro.

I have tried a few things, but have come no where close, and this
macro, simple as it is, would greatly improve my output as I am
generating pivot tables from data imported from Microsoft Navision.

Thanks
Mick