Como puedo cambiar la posición de una columna en una macro?

Dante amor, buen día, la macro que enviaste funciona perfectamente, pero ahora necesito que me guarde los documentos de word (las cartas) con el nombre de los datos que están en la columna B ya que esa macro guarda las cartas con los datos que se encuentran en la columna A, me puedes ayudar, al cambiar la columna A por la B en la macro me genera error.

Esta es la macro que funciona correctamente.

y al cambiar la columna A por la B me genera este error 

este es el código que tengo.

Sub CorrespondenciaConWord()
'Por.Dante Amor
'
patharch = ThisWorkbook.Path & "\plantilla3.dotx"
'
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.documents.Add Template:=patharch, NewTemplate:=False, DocumentType:=0
'
For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
textobuscar = Cells(1, j)
objWord.Selection.Move 6, -1
objWord.Selection.Find.Execute FindText:=textobuscar
'
While objWord.Selection.Find.found = True
objWord.Selection.Text = Cells(i, j) 'texto a reemplazar
objWord.Selection.Move 6, -1
objWord.Selection.Find.Execute FindText:=textobuscar
Wend
'
Next
'
ObjWord. Activate
ObjWord. ActiveDocument. SaveAs Cells(i, "A").Value
objWord. ActiveDocument. Close
objWord. Quit
Next
End Sub