Maker resten af måneden (stopper ikke ved januar i nyt år)

Jeg har følgende kode som markerer resten af måneden, men når man makerer december måned i 2006 i et ark hvor der også er begyndelsen af januar 2007, vil den også markerer det

Sub Marker()

      'Maker pågældende Måned     
      Dim r, r1, r2, m
      r1 = ActiveCell.Row: m = Month(ActiveCell)
      For r = 1 To 16300
      If Month(Cells(r, 1)) = m Then r2 = r
      Next
      Range("a" & r1 & ":s" & r2).Select 'Maker fra kolonne a-s
End sub