Modificar una macro de Excel

[mrocf]

Reemplaza la línea:
ActiveSheet.Range("B7").Value = "=TODAY()-((DAY(TODAY()-1)))"

por las siguientes:

Código:

With ActiveSheet.[B7:B37]
  .ClearContents: .Formula = Date - Day(Date) + 1
  .DataSeries Rowcol:=xlColumns, Type:=xlChronological, _
    Stop:=DateSerial(Year(Date), 1 + Month(Date), 0)
End With 

Saludos, Cacho.