pivot update doesnt use new data

Sub AirVolumeOverview()
'
'
'
'    
Dim pt As PivotTable
Dim strField As String
Dim Sortering As String
Dim Forstevalg As String, Andetvalg As String, Tredjevalg As String, Fjerdevalg As String
Dim EnhedForstevalg As String, EnhedAndetvalg As String, EnhedTredjevalg As String, EnhedFjerdevalg As String
Dim Enhed1 As String, Enhed2 As String, Enhed3 As String, Enhed4 As String
 
'changes to the actual sheet
Sheets("Ventilation i rum").Select
 
'move to the topleft cell
Selection.End(xlToLeft).Select
Selection.End(xlUp).Select
 
' Naming the dataarea Items
Range(Selection.End(xlToRight), Selection.End(xlDown)).Name = "Items"
 
   Sortering = "Etage"
   Forstevalg = "Rum nr."
   Andetvalg = "Basis luftmængde [m³/h]"
   Tredjevalg = "Variabel luftmængde min"
   Fjerdevalg = "Variabel Luftmængde max"
 
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
  SourceData:="Items").CreatePivotTable TableDestination:="", TableName:="LOlist"
 
Set pt = ActiveSheet.PivotTables("LOlist")
'Placering af Pivottabel
ActiveSheet.PivotTableWizard TableDestination:=Cells(3, 1)
pt.AddFields RowFields:=Sortering    
 
With pt.PivotFields(Sortering)
    .Orientation = xlRowField
    .Position = 1
End With
 
   pt.AddDataField pt.PivotFields(Andetvalg), " " & Andetvalg, xlSum
   pt.AddDataField pt.PivotFields(Tredjevalg), " " & Tredjevalg, xlSum
   pt.AddDataField pt.PivotFields(Fjerdevalg), " " & Fjerdevalg, xlSum
 
With pt.PivotFields(Forstevalg)
    .Orientation = xlRowField
    .Position = 2
End With
 
'Formatting the valuearea
With pt.PivotFields(" " & Andetvalg)
        .NumberFormat = "0 ""m³/h"""
End With
 
With pt.PivotFields(" " & Tredjevalg)
        .NumberFormat = "0 ""m³/h"""
End With
With pt.PivotFields(" " & Fjerdevalg)
        .NumberFormat = "0 ""m³/h"""
End With
 
'Check if sheetname is used, puts the new sheet last in the row of sheets
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Sheets
    If sht.Name Like "AirVolumeOverview*" Then arknr = arknr + 1
Next sht
ActiveSheet.Name = "AirVolumeOverview" & arknr + 1
ActiveSheet.Move after:=Worksheets(Worksheets.Count)
End Sub