hey everyone,

I have a macro that runs looks like this:

-**********************************-
Sub B()
Dim rng As Range, rng2 As Range, cell As Range

Set rng = Range("F4.F66")
'rng contains the values of the amount column
Status = 0
For Each cell In rng
If cell >= 1 Then
Range("b" & cell.Row, "g" & cell.Row).Select
'selectst he columns B,C,D,E,F,G columns of the row with an amount greater than $1
ActiveSheet.Copy
'put in to scroll to b101
Range("B10" & cell.Row).Select
ActiveSheet.Paste

End If
Next cell

Set rng = Nothing
Set cell = Nothing
End Sub
-****************************************-

where i say i want to paste the copied data into b101 is not correct. I need to be able to paste the records it finds starting at b101, but depending on the number of records, i must be able to paste the second data in b102, the third in b103 and so on. And help would be greatly appriciated.

thanks,
Steve