Vba code to loop A:A and change value in current row

Hi I am trying to make a macro to loop through Column A , which is a date field dd/mm/yyyy
when date changes put value in corresponding row to 100
column to change is L

any help will be appreciated
Graham'