Благодарю, отличие нашел

Здравствуйте,проблема следующая : текст ячейки не центрируется по горизонтали. При этом никакой ошибки не возникает, по вертикали все центрируется.. В чем может быть ошибка? Код :

Здравствуйте, необходимо, чтобы добавлялась строка, при заполнении одной из двух ячеек (определенных столбцов) предыдущей строки. Более детальное описание во вложении. Пытался обойтись созданием списка, не подходит..Заранее спасибо.

Спасибо, теперь все работает как надо!

Добрый день. Прошу помочь с макросом, необходимо следующее :  
 
1. Нужно, чтобы при внесении текста в ячейку (заданного столбца), проверялся диапазон по заданному столцу (на другом листе / файле). При нахождении введенного текста - копировалась строка (диапазон столцов задан) найденной ячейки с листа2 в лист1.  
Фактически работать должно так : При заполнении столбца B (ввода номера заказа) (лист Акт готовой продукции), копировалась строка с этим номером заказа с листа прочая продукция (столбцы B-G) в ячейки листа Акт готовой продукции (столбцы A-F).  
Аналогично с листом "Заказы СТО"  
 
2. Объясню сразу на примере при вводе цифры в колонку К (Итого/ Факт ; лист График изг-я запчастей) ищется в листе Заказы СТО заказ с соответствующим номером и автоматически проставляется введенная цифра в столбец O.  
 
Возможно ли такое реализовать? Заранее спасибо.

Да, дата теперь не меняется при повторном изменении ячейки, но и при удалении текста из ячеек C и D дата остается.А в первоначальном варианте удалялась..

Добрый день. Подскажите, пожалуйста, как подредактировать макрос, чтобы при повторном изменении ячеек C и D дата не менялась. Т.е. дата фиксировалась только при первом внесении текста в ячейки C и D. Заранее спасибо.  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
Dim cc As Range  
Application.ScreenUpdating = False  
Application.EnableEvents = False  
 
For Each cc In Target  
If Not Intersect(cc, Range("C2:C5000")) Is Nothing Then  
With cc(1, 0)  
.Value = IIf(Trim(cc) = "", "", Now)  
End With  
End If  
Next  
 
For Each cc In Target  
If Not Intersect(cc, Range("D2:D5000")) Is Nothing Then  
With cc(1, 2)  
.Value = IIf(Trim(cc) = "", "", Now)  
 
End With  
End If  
Next  
 
Application.EnableEvents = True  
Application.ScreenUpdating = True  
 
End Sub