VBA to lock rows after a certain date

[piqalap]

Hi!
Please help me woth the following problem (it starts with B2):

[TABLE="width: 1194"]
<tbody>[TR]
[TD]Contract no.[/TD]
[TD]Date[/TD]
[TD]Today[/TD]
[TD]Partner company[/TD]
[TD]Merchandise[/TD]
[TD]Shipping date[/TD]
[TD]Adjustments[/TD]
[TD]Etc.1[/TD]
[TD]Etc.2[/TD]
[TD]Etc.3[/TD]
[TD]Etc.4[/TD]
[TD]Etc.5[/TD]
[TD]Etc.6[/TD]
[TD]Etc.7[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD="align: right"]2014.02.12[/TD]
[TD="align: right"]2014.09.18[/TD]
[TD]XYZ Inc.[/TD]
[TD]Books[/TD]
[TD="align: right"]2014.02.26[/TD]
[TD]No[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]3[/TD]
[TD="align: right"]4[/TD]
[TD="align: right"]5[/TD]
[TD="align: right"]6[/TD]
[TD="align: right"]7[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD="align: right"]2014.03.13[/TD]
[TD="align: right"]2014.09.18[/TD]
[TD]ASD Co.[/TD]
[TD]Food[/TD]
[TD="align: right"]2014.03.27[/TD]
[TD]No[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]3[/TD]
[TD="align: right"]4[/TD]
[TD="align: right"]5[/TD]
[TD="align: right"]6[/TD]
[TD="align: right"]7[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD="align: right"]2014.07.12[/TD]
[TD="align: right"]2014.09.18[/TD]
[TD]FYI Inc.[/TD]
[TD]Cars[/TD]
[TD="align: right"]2014.07.26[/TD]
[TD]No[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]3[/TD]
[TD="align: right"]4[/TD]
[TD="align: right"]5[/TD]
[TD="align: right"]6[/TD]
[TD="align: right"]7[/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD="align: right"]2014.08.19[/TD]
[TD="align: right"]2014.09.18[/TD]
[TD]LOL Co.[/TD]
[TD]Pens[/TD]
[TD="align: right"]2014.09.02[/TD]
[TD]Shipment changed[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]3[/TD]
[TD="align: right"]4[/TD]
[TD="align: right"]5[/TD]
[TD="align: right"]6[/TD]
[TD="align: right"]7[/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD="align: right"]2014.10.01[/TD]
[TD="align: right"]2014.09.18[/TD]
[TD]TBA Inc.[/TD]
[TD]Jokes[/TD]
[TD="align: right"]2014.10.15[/TD]
[TD]No[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]3[/TD]
[TD="align: right"]4[/TD]
[TD="align: right"]5[/TD]
[TD="align: right"]6[/TD]
[TD="align: right"]7[/TD]
[/TR]
[TR]
[TD]….[/TD]
[TD]….[/TD]
[TD]….[/TD]
[TD]….[/TD]
[TD]….[/TD]
[TD]….[/TD]
[TD]….[/TD]
[TD]….[/TD]
[TD]….[/TD]
[TD]….[/TD]
[TD]….[/TD]
[TD]….[/TD]
[TD]….[/TD]
[TD]….[/TD]
[/TR]
[TR]
[TD="align: right"]2000[/TD]
[TD]….[/TD]
[TD]….[/TD]
[TD]….[/TD]
[TD]….[/TD]
[TD]….[/TD]
[TD]….[/TD]
[TD]….[/TD]
[TD]….[/TD]
[TD]….[/TD]
[TD]….[/TD]
[TD]….[/TD]
[TD]….[/TD]
[TD]….[/TD]
[/TR]
</tbody>[/TABLE]

I'd like to lock the entire rows where the "Date" column is smaller than the "Today" column, in this example, only the Contract no. 5 could be modified. This should go up to 2000 rows.

Thank you!