Sub sortCells(row As Long, c1 As Integer, c2 As Integer)
Dim X() As Long
    n% = c2 - c1 + 1
    ReDim X(1 To n%) As Long
    i% = 1
    For c% = c1 To c2
        X(i%) = Cells(row, c).Value
        i% = i + 1
    Next
    For i% = 1 To n% - 1
        For j% = i% + 1 To n%
            If X(i%) < X(j%) Then
               tmp& = X(i%)
               X(i%) = X(j%)
               X(j%) = tmp&
            End If
        Next j%
    Next i%
    s# = 0
    k# = 0
    For i% = 1 To n%
        If X(i%) Mod 2 <> 0 Then
           s# = s# + X(i%)
           k# = k# + 1
        End If
    Next i%
    avg# = s# / k#
    For i% = 1 To n%
        If X(i%) Mod 3 = 0 Then
           Cells(row, c1 + i% - 1).Value = avg#
        Else
           Cells(row, c1 + i% - 1).Value = X(i%)
        End If
    Next i%
End Sub
 
Sub Start()
 
    sortCells 2, 4, 13
 
End Sub