Public Sub X()
    Dim i As Integer
    Dim col As Integer
    Dim arrSheets( 1  To  10 ) As String
    Dim rng As Excel.Range
    
    arrSheets( 1 ) = "Лист1"
    
    i =  1 
    col =  5 

    ' arrSheets - это массив с именами листов.

    ' Intersect - возвращает объект Range,
    ' представляющий прямоугольное пересечение
    ' 2-х или более диапазонов. В нашем случае 2 диапазона.
    
    ' 1-ый.
    ' Columns(col).SpecialCells(xlCellTypeConstants).EntireRow
    ' Представляет строки, где в столбце Columns(col) присутсвуют константы.
    ' (col - номер столбца).
    
    ' 2-ой
    ' Union(.Columns(1), .Columns(2), .Columns(col))
    ' Это объединение 3 столбцов, первого, второго, и того, который
    ' мы укажем.

    With Sheets(arrSheets(i))
        Set rng = Intersect( _
            .Columns(col).SpecialCells(xlCellTypeConstants).EntireRow, _
              Union(.Columns( 1 ), .Columns( 2 ), .Columns(col)))
    End With
    
    rng.Select
End Sub