Attached a sample workbook.
Note: I do not want to hard code the ranges like
Code:
Range("A1").Value = netWT(Range("E4").Value)
but make them dynamic, like the range to copy data from and paste data to should be done dynamically in a loop or something.