tilrettelse af kode - kan kun køre koden én gang

Hej jeg har en lang fil her.
Det er den sidste Querry med indkøbslinier, der laver knuder.

Kan køre den en gang - men skal jeg køre koden en gang til er jeg nødt til at lukke arket op og ned igen. Nogen der kan hjælpe?

Desuden når jeg prøver at tælle antal querry skriver den hhv 124 og 69 på arkene. Er dette ikke lige voldomt nok?

Private Sub CommandButton1_Click()
'Application.ScreenUpdating = False

Rem henter beholdning
    Sheets("Beholdning").Select
    ActiveSheet.Range("A2:B2").Select
    ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents

  'importerer tekstfilen og sætter den ind med start i celle A2 og starter i række 2 i tekstfilen
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;H:\sti1.txt", _
        Destination:=ActiveSheet.Range("A2"))
        'Destination:=Selection)
        .Name = "beholdning"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = xlWindows
        .TextFileStartRow = 2
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1)
        .Refresh BackgroundQuery:=False
    End With
ActiveSheet.QueryTables.Item(1).Refresh BackgroundQuery:=False

   
      Rem henter salgsdata
   
Sheets("Salg").Select
ActiveSheet.Range("A4:I4").Select
    ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents

'importerer tekstfilen og sætter den ind med start i celle A2 og starter i række 2 i tekstfilen
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;H:\sti2.txt", _
        Destination:=ActiveSheet.Range("A4"))
        'Destination:=Selection)
        .Name = "salgslinier"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = xlWindows
        .TextFileStartRow = 2
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1)
        .Refresh BackgroundQuery:=False
    End With
   
    ActiveSheet.QueryTables.Item(1).Refresh BackgroundQuery:=False
      MsgBox ActiveSheet.QueryTables.Count



Rem henter indkøbsdata
Sheets("Indkøb").Select
    ActiveSheet.Range("A4:G4").Select
    ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
      Selection.ClearContents
      Selection.QueryTable.Delete
   
     
      'importerer tekstfilen og sætter den ind med start i celle A2 og starter i række 2 i tekstfilen
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;H:\sti3.txt", _
        Destination:=ActiveSheet.Range("A4"))
        'Destination:=Selection)
        .Name = "indkøbslinier"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = xlWindows
        .TextFileStartRow = 2
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1)
        .Refresh BackgroundQuery:=False
    End With
   
    ActiveSheet.QueryTables.Item(1).Refresh BackgroundQuery:=False
    MsgBox ActiveSheet.QueryTables.Count
   
'Application.ScreenUpdating = True


End Sub


LN