Hello to all the great minds of VBA.
Is there someone who can make a macro to copy excel written down in box A: A word document again vertically A1, A2, A3, etc.
Or because this macro works very well, but if you can touch anywhere hirizontalno instead, carry information vertically - >>> this would be the best option.
Thanks in advance



PHP Code:
Sub AutoFillWordTables() 

Dim C As Long 
Dim FileFilter 
As String 
Dim LastCol 
As Long 
Dim R 
As Long 
Dim Rng 
As Excel.Range 
Dim WordFile 
As String 
Dim wdApp 
As Object 
Dim wdDoc 
As Object 
Dim wdTbl 
As Object 
Dim Wks 
As Worksheet 

Set Wks 
Worksheets("Sheet1"Set Rng Wks.Range("A1:A6"

LastCol Wks.Cells(Rng.RowColumns.Count).End(xlToLeft).Column 
Set Rng 
Rng.Resize(ColumnSize:=LastCol

FileFilter "Word Documents(*.doc),*.doc, All Files(*.*),*.*" 
WordFile Excel.Application.GetOpenFilename(FileFilter

If 
WordFile "False" Then Exit Sub 

Set wdApp 
CreateObject("Word.Application"
Set wdDoc wdApp.Documents.Open(WordFile

For 
1 To LastCol 
    Set wdTbl 
wdDoc.Tables(C
    For 
1 To Rng.Rows.Count 
        wdTbl
.Range.Cells(R).Range.Text Rng.Cells(RC
    
Next R 
Next C 

wdApp
.Visible True 

Set wdApp 
Nothing 
Set wdDoc 
Nothing 
Set wdTbl 
Nothing 

End Sub