Tom,

Again thanks for your reply....

The macro isn't quite doing what I expected, the range selected in
column E per the following code

Determine the extent of the data in column E
With Workbooks("Part List.xls").Worksheets(1)
set rng = .Range(.Range("E2"), _
.Range("E65536").End(xlup))
End With

It is selecting the entire column, this data is then pasted into the
Test.xls workbook, what I really need is for the macro to loop through
each row in Part List.xls. For example, starting in E2 in the Part
List.xls the value is placed into B1 on Test1.xls, then the value in G2
in Part list.xls is placed into cell B2 in Test1.xls, once this is done
a calculated value from Test1.xls cell B7 is placed into the Part
List.xls column K on the same row the original data came from, then the
macro should go to the next row in Part List.xls column E and continue
the same process until all records in column E have been processed. The
values pasted into Test1.xls cells B1 and B2 will be multiplied by the
constants diameter and metric respectively. Sorry fro any confusion.