Lagi ketemu masalah yang susah waktu belajar macro gan...... Jadi skenarionya saya buat table di word dan mau copy nilai dari cell(1,1) ke Cell yang aktif memakai macro.

Sub InsertTextInCell()

 Dim nilai As Cell

 Dim isi As String

 If ActiveDocument.Tables.Count >= 1 Then

 Set nilai = ActiveDocument.Cell(row:=1, Column:=2)

 isi = nilai.FitText

 'With ActiveDocument.Tables(1).Cell(row:=1, Column:=2).Range

 With Selection.Cells(1).Next

 Text = isi

 End With

 End If

End Sub

Masalah yang dihadapi:
-deklarasi var nilai yang tepat saya kurang tahu
-masalah juga di mengisi text ke active cell