Sub Макрос1()
    Dim sFolder As String, sFiles As String, wb As Workbook
    'диалог запроса выбора папки с файлами
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub
        sFolder = .SelectedItems(1)
    End With
    sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
    'отключаем обновление экрана, чтобы наши действия не мелькали
    Application.ScreenUpdating = False
    'отключаю появление всплывающего окна
    Application.DisplayAlerts = False
    sFiles = Dir(sFolder & "*.html*")
    Do While sFiles <> ""
        'открываем книгу
        Set wb = Workbooks.Open(sFolder & sFiles)
        wb.Sheets(1).Copy after:=ThisWorkbook.Sheets(Sheets.Count)
        wb.Close False
        sFiles = Dir
    Loop
    'возвращаем ранее отключенное обновление экрана
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

      Cells.Select
      ActiveSheet.Paste

    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

lst = "111"