CSV dosyasından veri çekiyorum sütun sağa kayıyor.

[burhancavus61]

Kullandığım bir kod var csv dosyalarını çekmemi sağlıyor. Deneme için boş bir excelde çalıştırıyorum normal çalışıyor gibi görünüyor. Fakat kodu asıl çalışmama aldığım zaman sütunu sağa kaydırıyor ve tablomu bozuyor neden oluyor çözemedim.

Sub ORBİS_TumBordro_Aktar()
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect
    Range("C2").Select
    
    fn = Application.GetOpenFilename("Excel Dosyaları (*.csv), *.csv", , , False)
    If fn = False Then
    
    MsgBox "Dosya seçimi yapmadığınız için işlem iptal edildi!", vbCritical

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True
    Exit Sub
    Else
    
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & fn, Destination:= _
        Cells(Rows.Count, 3).End(3)(2, 1))
        .Name = Split(Dir(fn), ".csv")(0) & "_2"
        .FieldNames = True
        .AdjustColumnWidth = False
        .TextFilePlatform = 65001
        .TextFileStartRow = 2
        .TextFileSemicolonDelimiter = True
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .Refresh BackgroundQuery:=False
    End With
    End If
    
    Range("C2").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
    False, AllowFiltering:=True
    MsgBox "Veri aktarımı tamamlanmıştır." & vbCrLf & vbCrLf & _
           "İşlem süresi ; " & Format(Timer - Zaman, "0.00") & " Saniye", vbInformation

End Sub