Сохранить значение ячеек, которое потом удалится макросом по фильтру - VBA

Формулировка задачи:

Гуру, хелп плз открываю ТХТ файл в екселе и выполняю разное редактирование теста (разбиение по колонкам, удаление полупустых строчек по фильтру и прочее). И вот определенной части нужно сохранить значение диапазона ячеек, который потом удалится по фильтру. Как правильно сохранить в переменную(возможно константу) данные с диапазона ячеек(например 2R:1С), который(диапазон) потом будет удален? чтобы считать потом и вставить в итоговый отформатированный файл

                    Листинг программы
                
 
                            
                        
  iFileName = Application.GetOpenFilename
         Workbooks.OpenText Filename:=iFileName, Origin:=866, StartRow _
        :=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=True, OtherChar:="|", FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True
 
        Columns("G:G").EntireColumn.AutoFit
    Columns("H:H").EntireColumn.AutoFit
    Columns("B:B").Select
    Selection.NumberFormat = "0"
    Rows("1:6").Select
    Selection.Delete Shift:=xlUp
 
' !!!!!!  в этом месте в строчках Rows("1:6") в диапазоне 2R:1С есть часть нужного текста , которую нужно потом будет вернуть в конце кода и в конце редактирования файла
 
   Cells.Find(What:="номер", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
         Selection.Name = " Data1"
   Cells.Find(What:="конец", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
         Selection.Name = " Data2"
 
   ' удаляем по фильтру пустые строчки
    Range("Data1: Data1").Select
    Selection.EntireRow.Delete
   
    ActiveSheet.ShowAllData
 
 Range("X8").Select
 ' !!!!!!  тут нужен код по вставке ранее сохраненного фрагмента в переменную или константу и потом удаленного с файла
Range("A1").Select

Решение задачи: «Сохранить значение ячеек, которое потом удалится макросом по фильтру»

textual
                            Листинг программы 
                        
'Возвращаем в другое место (диапазон T4:AH5) значения, сохранённые в массиве.
    For i = 20 To 35
       Cells(4, i) = arr(i - 17, 1)
       Cells(5, i) = arr(i - 17, 2)
    Next i