I am attempting to create some dynamic code that, at this point, will select a bunch of cells, move the selection over two columns, then find the average of that selection and send that value to a cell. This is what I have so far, I am getting stuck at averaging the selection I've made:

```
Sub StatMakersub(Rng1 As Range)

    Dim MyRange As Range
    Dim Cell As Object
    Dim InQuestion As Range
    Dim SelAvg As Object

     'Check every cell in the range for matching criteria.
    For Each Cell In Rng1
        If Cell.Value = 2000 Then
            If MyRange Is Nothing Then
                Set MyRange = Range(Cell.Address)
            Else
                Set MyRange = Union(MyRange, Range(Cell.Address))
            End If
        End If
    Next
     'Select the new range of only matching criteria
MyRange.Select
Selection.Offset(0, 2).Select
Set InQuestion = Selection
Range("P2").Formula = "=Average(Selection)"
Range("Q2").Formula = "=STDDEVA(Selection)"

End Sub

```

I can't find much on the web about how to average range variables.