Run Function on Array of Data
Function calc(x As Integer) As Long
calc = (x) ^ 2 + 5 * (x) + 6
End Function
Sub Calcuationz()
Dim rng, cel As Range
Dim x As Integer
Set rng = Selection
For Each cel In rng
x = cel.Value
cel.Offset(, 1).Value = calc(x)
Next
End Sub