Makere resten af måneden

Jeg fik engang denne kode af excelent

Dim r, r1, r2, m
r1 = ActiveCell.Row: m = Month(ActiveCell)
For r = ActiveCell.Row + 1 To 16300
If Month(Cells(r, 1)) <> m Then r2 = r - 1: Exit For
  Next
Range("a" & r1 & ":s" & r2).Select 'Maker fra kolonne a-s

(koden makerer alle rækker fra kolonne A til kolonne S fra fx.
2feb. til fx 25 feb.)

Problemet er det virker også fint i alle månederne undtagen i december.
Der skal være mindst 1 linje der er paseret 01-01-08
(det behøves ikke i de andre måneder)