Use the Worksheet_Change event, not calculation.

Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "H1:H10" '<--- change to suit

On Error GoTo ws_exit
Application.EnableEvents = False

If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
'your code
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click


--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"PaulW" wrote in message
...
I have a workbook that i want to update only when data is inputted.

Witihin the macro i am moving data which is recalculating the sheet which
then triggers the macro again which in effect loops the sheet.

The two criteria i have are a date and then the trigger is when data is
inputted.
The aim is to move the inputted data from the input cell (always a
particular column) to a new column.

How can I get the sheet to only update with data input?