Sub arraytotable()
    Dim strfind()
    Dim strreplace()
    Dim i As Integer, k As Integer
    Dim j As Integer
    Dim t As table
    Dim ad As Document
        Set ad = Documents.Add
            strfind = Array("me","you","them","Us")
            strreplace = Array("me","you","them","Us")
            i = UBound(strfind) - LBound(strfind) + 1
        Set t = ad.Tables.Add(Selection.Range, i, 2)
    For k = 1 To 2
        For j = 1 To i
            t.Cell(i, 1).Range.InsertAfter (strfind(i).Text)
            t.Cell(i, 2).Range.InsertAfter (strreplace(i).Text)
        Next
    Next

End Sub