carloslin0316

¦^´_ 1# solitary16


    Sub test()

If (Cells(1, 3) = "") Then
    Cells(1, 3) = Cells(1, 1)
ElseIf (Cells(2, 3) = "") Then
    Cells(2, 3) = Cells(1, 1)
Else
    startrow = Range("c1").End(xlDown).Row + 1
    Cells(startrow, 3) = Cells(1, 1)
End If

Application.OnTime Now + TimeValue("00:01:00"), "test"

End Sub