Function to calculate and return form another sheet
 

I have a sheet named pipe1

If i enter the dia and thickness values it calculates the weight.

Now I have a set of dia and thickness values

I want to write a macro so that it will input the corresponding dia
and thickness vaues in that sheet and copy the weight to the active
cell.

I am looking for a function rather than a subroutine