Как скопировать пустоту из файла CSV?

Question

Я хотел бы выполнять транзакции, за исключением того, что иногда нет данных, которые я хотел бы скопировать в "эту пустоту", чтобы поместить их в лист Excel, потому что в противном случае в моем буфере обмена всегда есть предыдущая транзакция.

   Sub OpenCSVFile()
    '
    ' Load the CSV extract
    '

    '
      With ActiveSheet.QueryTables.Add(Connection:= _
      "TEXT;" & fpath & "\" & ffilename, Destination:=Range("$A$1"))
     .Name = "text"
      .FieldNames = True
      .RowNumbers = False
      .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 = False
      .TextFileSpaceDelimiter = False
     .TextFileOtherDelimiter = "|"
     .TextFileColumnDataTypes = Array(1)
     .TextFileTrailingMinusNumbers = True
     .Refresh BackgroundQuery:=False

    End With
    End Sub

   Sub StartExtract()

   ' Set the sid and client to connect to
   W_System = "P10320"
   ' Run the GUI script
    RunGUIScript
   ' End the GUI session
    objSess.EndTransaction
    'effacer contenu feuille temp
    Sheets("temp").Select
    Cells.Select
    Selection.Delete Shift:=xlUp
    'Switch to the worksheet where the data is loaded to
   Sheets("temp").Select

   'Load the CSV file
    OpenCSVFile

    End Sub 

Ошибка всегда здесь ". Обновить BackgroundQuery: = False"