I need to create a macro with following funtion:

there is a table with two colomns. in the left one I have filled in all days
of the year. the right column is filled in with data (numbers). SOme of the
numbers are in red colour. The macro have to look for all numbers in red in
the right column and to retur their sum in the first cell of the column which
is empty. The mactro have to look from the begining of the column to the cell
containg the date for today.