Sub 上月二十六到本月二十五()
With Sheets("Sheet1")
 GG = DateSerial(Year(Date), Month(DateSerial(Year(Date), Month(Date), 0)), 25)
 Do While GG < DateSerial(Year(Date), Month(Date), 25)
    I = I + 1
    GG = GG + 1
   .Range("A" & I) = GG
  Loop
End With
End Sub