Excel - Relacion Columnas para Reporte de hrs

Sub import()

 Dim t As Single

    t = Timer

    Sheets("Hoja1").Cells.ClearContents

    strFile = Application.GetOpenFilename("CSV, *.csv")

        If strFile = Empty Then

           Response = MsgBox("Ningún fichero seleccionado", _

           vbOKOnly, "Error")

        Exit Sub

        Else

        End If

    With Sheets("Hoja1").QueryTables.Add(Connection:= _

        "TEXT;" & strFile _

        , Destination:=Sheets("Hoja1").Range("$A$1"))

        .Name = "fichero"

        .FieldNames = True

        .RowNumbers = False

        .FillAdjacentFormulas = False

        .PreserveFormatting = True

        .RefreshOnFileOpen = False

        .RefreshStyle = xlInsertDeleteCells

        .SavePassword = False

        .SaveData = True

        .AdjustColumnWidth = True

        .RefreshPeriod = 0

        .TextFilePromptOnRefresh = False

        .TextFilePlatform = 850

        .TextFileStartRow = 1

        .TextFileParseType = xlDelimited

        .TextFileTextQualifier = xlTextQualifierDoubleQuote

        .TextFileConsecutiveDelimiter = False

        .TextFileTabDelimiter = True

        .TextFileSemicolonDelimiter = False 'CSV: punto y coma

        .TextFileCommaDelimiter = True

        .TextFileSpaceDelimiter = False

        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1) '5 columnas

        .TextFileTrailingMinusNumbers = True

        .Refresh BackgroundQuery:=False

    End With

 MsgBox "Importado con exito"

End Sub

Sub SelccionarRangoUtilizado()

'Selecciona el rango de datos utilizado en la hoja

    ActiveSheet.UsedRange.Select

End Sub