Visual Basic - De excel a txt

Hola quisiera hacer una consulta. Mi problema consta en que quiero copiar numeros de dos columnas en excel en un archivo txt manteniendo la estructura de la columna, es decir:

1 2
5 7
2 9
2 10

He logrado solo copiar la primera columnacorrectamente con la siguiente rutina:

Private Sub CommandButton1_Click()
Dim Ruta As String, Archivo As String
Ruta = "C:Documents and SettingsRodrigo RocabadoEscritorioPLANILLAS"
Archivo = "Espectro"
With Workbooks.Add
ThisWorkbook.Worksheets("Etabs - Metodo 1").Range("b7:b47").Copy
With .Worksheets(1)
.Range("b5").PasteSpecial xlPasteValues
.Rows("1:2").EntireRow.Delete
End With
.SaveAs Filename:=Ruta & Archivo, FileFormat:=xlTextWindows
.Close False
End With
End Sub

Saludos.