Is their a way to write the code so that I don't need to call a specific cell for the calculations.
This code goes in a standard module
You'll have to fill in the blanks, (Bearing2Azimuth,)
Public Function AK_Beaver(Inputs As Range) As 'Unknown, Fill in the Blanks
Dim rw As Range
Dim Dividend As Double
Dim Divisor As Double
Dim Result as double
For Each rw In Inputs.Rows
Dividend = Dividend + Bearing2Azimuth(rw.Cells(1)) * rw.Cells(2)
Divisor = Divisor + rw.Cells(2)
Next
Result = Dividend / Divisor
NewResult = 'Fill in the blanks here
AK_Beaver = NewResult
End Function
To use, In your results cell, enter the formula "=AK_Beaver(Select your range here)"