Selection.Copy
    With Sheets("Лист1").Range("A1")
        .PasteSpecial Paste:=xlPasteColumnWidths ' вставить ширины столбцов
        .PasteSpecial Paste:=xlPasteValues ' вставить значения
        .PasteSpecial Paste:=xlPasteFormats ' вставить форматирование
    End With
Application.CutCopyMode = 0

Public Function GetArr1xFromFile(ByVal FilePath$, ByVal arrNames)
Dim arr, temp, x, n%
Workbooks.Open FilePath: ReDim temp(0 To UBound(arr)): n = -1
    For Each x In arrNames
        n = n + 1: temp(n) = Range(x).Value
    Next x
If n = 0 Then GetArr1xFromFile = temp(0) Else GetArr1xFromFile = temp
ex: ActiveWorkbook.Close False
End Function

Option Explicit
'===========================================================================================
Public Function PRDX_RegExp_Execute(strVal$, ptrn$)
Dim m As Object, arr, n&, txt$
n = -1: ReDim arr(0 To 1000): PRDX_RegExp_Extract = ""
    With CreateObject("VBScript.RegExp")
        .Global = 1: .IgnoreCase = 0: .MultiLine = 1: .Pattern = ptrn
        If Not .Test(strVal) Then Exit Function
'        For Each m In .Execute(strVal)
'            n = n + 1: arr(n) = m.Value
'        Next
        Set m = .Execute(strVal)
    End With
PRDX_RegExp_Extract = Join(m)
'ReDim Preserve arr(0 To n): PRDX_RegExp_Extract = Join(arr)
End Function