rangeオブジェクトの共有部分を取得

Sub SampleStatement()
Application.Intersect([B2:D5], [C4:E7]).Select
End Sub