I am trying to select the cell location of the array value. My code is not working.

Sub ArrayHeaderSelector()
    With ThisWorkbook.Sheets("Sheet1")
        
        ' Header Counter
        LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
        ReDim HeaderArray(1 To LastCol)

        ' Header Storage
        For i = 1 To LastCol
            Set HeaderArray(i) = .Cells(1, i)
        Next i

        ' Select cells based on needed columns on array
        .Range(.Cells(1, HeaderArray(2).Column), .Cells(10, HeaderArray(5)).Column).Select

    End With

End Sub

Error Line: “Run-time error ’13’: Type Mismatch“

        .Range(.Cells(1, HeaderArray(2).Column), .Cells(10, HeaderArray(5)).Column).Select