Hjælp til vba kode

Da jeg ikke har den store programmerings erfaring, har jeg brug for hjælp til at finde en fejl i noget VBA kode jeg har fundet på internettet.
jeg vil gerne hente data fra mange semikolonsepareret filer og indsætte det i en ny wookbook. indholdet skal ligge i en lang liste.
Nedenstående kode gør det næsten, men for hver ny file der bliver hentet ind rykker indholdet 4 celler ud...

Sub hent()
Dim Str1 As String
Dim i As Integer
Dim j As Long
Dim Boo1 As Boolean
Dim Obj1 As Object

Set Obj1 = CreateObject("excel.application")
Obj1.Workbooks.Add

With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "vfo filer (*.ovf)", "*.ovf"
.Filters.Add "alle filer (*.*)", "*.*"
.Show
If .SelectedItems.Count > 0 Then
Obj1.Worksheets(1).Activate
j = 1
For i = 1 To .SelectedItems.Count
    Str1 = "TEXT;" & .SelectedItems.Item(i)
    With Obj1.ActiveSheet.QueryTables.Add(Connection:=Str1, Destination:=Obj1.Worksheets(1).Cells(j, 1))
    .TextFileSemicolonDelimiter = True
    .Refresh BackgroundQuery:=True
        .FieldNames = True
        .RowNumbers = True
        .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
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Boo1 = False
    While Boo1 = False
        j = j + 1
        If Obj1.Worksheets(1).Cells(j, i).Value = "" Then
            Boo1 = True
        End If
    Wend
Next
End If
End With

Obj1.Visible = True
End Sub