Перенос данных типа "Дата" - VBA

Формулировка задачи:

Уважаемые, доброго времени суток! Опять обращаюсь к вам со следующим вопросом: 1. Наладил перенос данных из множества маленьких книг excel (в дальнейшем буду называть их источники) в одну сводную книгу (далее свод). 2. В источниках практически во всех ячейках стоят связи на другие файлы. 3. Проблема возникла с датами, а именно: в своде до переноса данных стоят пустые ячейки (формат ячеек - дата), в случае переноса из источника нулевого значения в своде получаю "12:00:00 AM". Подскажите как победить и сделать так, чтобы при нулевом значении в источнике в своде оставалась пустая ячейка? Excel 2010, формат всех файлов двоичный (*.xlsb). Данные переносятся следующей строчкой

ThisWorkbook.Worksheets("КП").Cells(i_row, j_col).Value = Workbooks(kp_name).Worksheets("" & i).Cells(kp_i_row, kp_j_col).Value

i_row, j_col, kp_i_row, kp_j_col - переменные цикла

Решение задачи: «Перенос данных типа "Дата"»

textual
                            Листинг программы 
                        
                            Workbooks(book_name).Worksheets(list_name).Columns(kp_j_col).Replace 0, "", xlWhole