Взять значение из соседней ячейки Excel VBA

Есть исходная таблица:

1)В столбце "В" всегда находятся только даты. Даты необходимо перенести на новый лист в столбец "А" без пробелов. 2)Необходимо пройти по столбцу "С" И если в нём встречается символ "х", то необходимо взять значение из соседнего столбца "D" и перенести на другой лист в столбец " B". В столбце "D" Могут встречаться значения не только рядом со значением "X".

Таблица которая должна получиться: