I want to remove all values from cells in that column, which do not contain any time
pls explain more

use excels find method for 2.
maybe like
Code:
Set fnd = s.UsedRange.Find(Date - 1)
rw = fnd.row
col = fnd.column
where s is a worksheet object