Issues with VBA code to import multiple csv files

Hi guys. I'm quite new at VBA and seem to have problems at every little step of the way.
I'm currently trying to make a code that can automatically import a number of csv files into specified sheets in one workbook. I basically just found a youtube video and copied it, but I can't make it work. That is to say that it actually has worked a few times in steps of the process, but when I tried it again it failed for some reason...

Right now the code is set up to import eight csv files into eight different sheets of the same workbook.
Filenames of the csv files and the destination sheets are defined in a separat sheet called "forudsætninger" (I'm Danish...)
The code is built in two loops because the names of the csv files are in two groups with two different prefixes + year and so far I have not found a more elegant way to make this in one loop...

The code looks as follows:

Sub Dataimport()

Application.ScreenUpdating = False

PathName = Application.ActiveWorkbook.Path & "\"
Filename = Sheets("Forudsætninger").Range("G11").Value
Start_year = Sheets("Forudsætninger").Range("G9").Value
End_year = Sheets("Forudsætninger").Range("G10").Value
Sheetname = Sheets("Forudsætninger").Range("G13").Value

Dim i As Integer
For i = Start_year To End_year Step 5

Worksheets(Sheetname & "20" & i).Activate

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & PathName & Filename & i & ".csv", Destination:=Range("$A$1"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With

Dim wb_connection As WorkbookConnection
For Each wb_connection In ActiveWorkbook.Connections
If InStr(Filename, wb_connection.Name) > 0 Then
wb_connection.Delete
End If

Next wb_connection

Next i

Filename = Sheets("Forudsætninger").Range("G12").Value
Sheetname = Sheets("Forudsætninger").Range("G14").Value

Dim j As Integer
For j = Start_year To End_year Step 5


Worksheets(Sheetname & "20" & j).Activate

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & PathName & Filename & j & ".csv", Destination:=Range("$A$1"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With

For Each wb_connection In ActiveWorkbook.Connections
If InStr(Filename, wb_connection.Name) > 0 Then
wb_connection.Delete
End If

Next wb_connection

Next j

MsgBox ("Done")
End Sub

I hope some VBA wizard out there can help me

Best regards from Denmark.