Копирование содержимого из буфера обмена в таблицу

Sub ExPaste()
 
    Dim DataObject As Object, var
   
   
    '1. Создание объекта "DataObject".
    Set DataObject = GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
   
    '2. Копирование текста из буфера обмена Windows в объект "DataObject".
    DataObject.GetFromClipboard
   
    '3. Если буфер обмена Windows пустой или если в нём не текст, а что-то другое, например, рисунок.
        ' В скобках нужно указывать всегда число 1. Другие числа, как я понимаю, не используются.
        ' В справке ещё упоминаются "пользовательские форматы", но что это такое, я пока не знаю.
    If DataObject.GetFormat(Format:=1) = False Then
        Exit Sub
    End If
   
    '4. Копирование текста из "DataObject" в переменную.
    var = DataObject.GetText(Format:=1)
    
    Sheets("Data").Activate
    Application.ScreenUpdating = False
    
    Set Tabl = Worksheets("Data").ListObjects("Data")
    With Tabl
    li = .Range.Rows.Count
    .Range(li + 1, 2) = var
    li = li + 1
    End With
    
    Application.ScreenUpdating = True
End Sub

текст1
текст2
текст3

Private Sub Test()
    Dim DataObject As Object, var
    Set DataObject = GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    DataObject.GetFromClipboard
    If Not DataObject.GetFormat(1) Then Exit Sub
    var = Split(DataObject.GetText(1), vbNewLine)
    
    With Worksheets("Data").ListObjects("Data")
         .Range(.Range.Rows.Count + 1, 2).Resize(UBound(var)) = Application.Transpose(var)
    End With
End Sub