Замена символов в строках Exel

[kakawkin]

Есть в екселе записи вида

												
	АБОНЕМЕНТ на					газету		50671				
						журнал						
	"Охрана труда и промышленная безопасность"											
							количество комплектов			3		
	на 2014 год по месяцам:											
	1	2	3	4	5	6	7	8	9	10	11	12
							X	X	X	X	X	X
	Куда		452320			(Адрес)						
	с.Иванаево, Дюртюлинский район, Комсомольская, 3											
	Кому		филиал «Дюртюлинский» 									
	НОУ "Межотраслевой институт"											
												
						на	газету		50671			
							журнал					
	ПВ		место		ли-тер							
	"Охрана труда и промышленная безопасность"											
												
	Стои-мость		подписки			___________руб				кол-во комплектов		3
			переадресовки			___________руб						
	на 2014 год по месяцам:											
	1	2	3	4	5	6	7	8	9	10	11	12
	Х	Х	Х	Х	Х	Х						
Куда	452320			с. Иванаево, Дюртюлинский район, 								
Комсомольская, 3												
Кому	филиал «Дюртюлинский»

Как видно ИКСЫ ( Х ) стоят с 1 по 6 месяц, а надо их сместить с 7 по 12.
Пробовал делать элементарно

      a = 8
    For indexA = 1 To 147
       Range(Cells(a, 2), Cells(a, 7)).Select
       Selection.ClearContents
       Range(Cells(a, 8), Cells(a, 13)).Value = "X"
       a = a + 26

Но у квитанций где-то имеется сдвиг и он заменяет совершенно другое.
Как понял надо передвигаться по строкам вниз по столбцу B и искать ячейку с символом X, если нашли то провиряем две ячейки правые ( к примеру 8,3 и 8,4 то наша строчка. И далее уже применяется код

Range(Cells(a, 2), Cells(a, 7)).Select
       Selection.ClearContents
       Range(Cells(a, 8), Cells(a, 13)).Value = "X"

Который очищает ячейки с 1 по 6 месяц, и ставит X на 7-12 месяц.
Но вот как

[kakawkin]

Сделал вот такой код:

For indexA = 5 To 40
     valuuue = Ëèñò1.Cells(indexA, 2).Value
     If valuuue = "X" Then
      Range(Cells(indexA, 2), Cells(indexA, 7)).Select
      Selection.ClearContents
      Range(Cells(indexA, 8), Cells(indexA, 13)).Value = "X"
     End If
    Next

но он вообще отказывается запускаться