VBA循环，直到两个或多个列中的一行为空

I'm trying to create a loop where a today's date is entered automatically in the first column while second column is filled and to make it stop after it fills all empty cells.I'm trying to create a loop where a today's dat