Done correctly, it works. Without actually seeing your two documents, I can't be sure what it is you've done.
If, as I suspect, your table is as per the OP's 'Fixed version (replacing document).docx ' attachment (which isn't actually the fixed version), you need to change:
Code:
.Text = Split(Tbl.Cell(r, 2).Range.Text, vbCr)(0)
.Replacement.Text = Split(Tbl.Cell(r, 3).Range.Text, vbCr)(0)
to:
Code:
.Text = Split(Tbl.Cell(r, 1).Range.Text, vbCr)(0)
.Replacement.Text = Split(Tbl.Cell(r, 2).Range.Text, vbCr)(0)