Sub test()Dim i As IntegerFor i = 1 To Range("a65536").End(xlUp).Row If Cells(i, 1) <> "" Then Cells(i, 2) = Date End IfNext iEnd Sub
