I have a full worksheet of about 5,000 rows. I am looking for help so I can
insert a row above each row with contents starting in Row 2. Minus the date
in Column C for each row with contents from todays date and put the
difference in Column B the empty row above. Here is what I have now. If you
can help me, thank you.

Sub Insertrowcalculate()
Range("2:2,4:4,6:6,8:8,10:10").Select
Selection.Insert Shift:=xlDown
Range("4:4,7:7,10:10,13:13").Select
Selection.Insert Shift:=xlDown
End Sub