Steven,

In the code module for the worksheet on which you enter your
expense report data, put the following code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Dest As Range
If Target.Cells.Count 1 Then
Exit Sub
End If
If Target.Column < 5 Then
Exit Sub
End If
If Target.Value = 500 Then
Set Dest = Worksheets("Sheet2").Cells(Rows.Count,
"A").End(xlUp)(2, 1)
Target.EntireRow.Copy Destination:=Dest
End If
End Sub



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Steven" wrote in message
...
I have a spreadsheet of various expense report data of
employees that travel a lot. What i would like to do is
set up a macro or something of the sort to do the
following:

In column E, every value over $500, I would like that row
coppied and pasted into another worksheet. So if in cell
e10 that employee has $550 entered. put him in a seperate
worksheet. I would need this for several columns.

Any thoughts you guys might have would be greatly
appreciated.

Thanks,
Steven