Hi Amy,
Here's a relatively simple way:
Sub Demo()
Dim i As Long
For i = 2 To ActiveSheet.UsedRange.Rows.Count
Cells(i, 3).Value = Evaluate("=INDEX([list.xls]Sheet1!B$1:OFFSET([list.xls]Sheet1!B$1,MATCH(1E+306,[list.xls]Sheet1!B:B,1),),(MATCH($A" & i & ",[list.xls]Sheet1!A$1:OFFSET([list.xls]Sheet1!A$1,MATCH(" & """ * """ & ",[list.xls]Sheet1!A:A,-1),),0)))")
Cells(i, 6).Value = Evaluate("=INDEX([list.xls]Sheet1!C$1:OFFSET([list.xls]Sheet1!C$1,MATCH(1E+306,[list.xls]Sheet1!B:B,1),),(MATCH($A" & i & ",[list.xls]Sheet1!A$1:OFFSET([list.xls]Sheet1!A$1,MATCH(" & """ * """ & ",[list.xls]Sheet1!A:A,-1),),0)))")
Cells(i, 7).Value = Evaluate("=INDEX([list.xls]Sheet1!D$1:OFFSET([list.xls]Sheet1!D$1,MATCH(1E+306,[list.xls]Sheet1!B:B,1),),(MATCH($A" & i & ",[list.xls]Sheet1!A$1:OFFSET([list.xls]Sheet1!A$1,MATCH(" & """ * """ & ",[list.xls]Sheet1!A:A,-1),),0)))")
Next
End Sub
Note: The 'list.xls' workbook must be open for this to work.