Копирование данных из Excell to Word - VBA

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

Привет. Помогите подправить код, пожалуйста. Нужно, чтобы в документ Word копировались данные не из консолидированной ячейки А20, а из массива А1:А19, и чтобы при этом пустые ячейки не копировались (через объявление Dim LastRow?). И еще хотелось бы иметь варианты кода для копирования в уже имеющийся\путь документ Word с предварительной очисткой содержимого этого документа, и еще вариант кода для копирования в новый документ Word с одновременным форматированием этого нового документа под 3 колонки.

                    Листинг программы
                
 
                        
                          
                    
Sub PersonalToWord()
    Dim WordApp As Object
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    With WordApp
        .Documents.Add
        With .Selection
            .Font.Size = 14
            .TypeText Text:="Changed Text " + vbCrLf 
            ' Range("A20").Select
            Selection.Copy
            WordApp.ActiveWindow.Selection.TypeText (Range("A20")) + " Примеч."
            Application.CutCopyMode = False
            Set WordApp = Nothing
        End With
    End With
End Sub

Решение задачи: «Копирование данных из Excell to Word»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub PersonalToWord()
Dim WordApp As Object, x, s
  Set WordApp = CreateObject("Word.Application")
  With WordApp
    .Visible = True
    .Documents.Add
    With .Selection
      .Font.Size = 14
      .TypeText Text:="Changed Text " + vbCrLf
      For Each x In Range("A1:A19").Value
        If Len(x) Then s = s & " " & x
      Next
      .TypeText Mid$(s, 2) & " Примеч."
    End With
  End With
  Set WordApp = Nothing
End Sub