Verificar si un rango pertenece a otro rango de celdas

Tengo que aplicar una combinación de celdas mediante una macro, pero solo debe aplicarse por columnas dentro de los rangos A15:A100, B15:B100 y C15:C5100 la macro que tengo en la siguiente

Sub InputBox_Rango()

    'Pedimos al usuario que elija un rango.

    Set rango = Application.InputBox(Prompt:="Elige un rango", Type:=8)

    If Not Intersect(Range("a15:a100"), rango) Is Nothing Then

    rango.Merge

    Else

    ' Instrucciones SI NO es parte del rango

    End If

End Sub

Lo que pasa en que con una celda que estén dentro del rango me lo aplica y necesito que todo el rango que proporciona en usuario este dentro del los rangos preestablecidos