Løkke ud fra datoværdier

Jeg har an masse registreringer på datoer, hvor jeg skal kunne trække data på et års registreringer over i et nyt ark og slette dem i den gamle fane. Jeg har derfor brug for at lave en løkke, hvor man skal fortsætte løkken, indtil datoværdien i en række bliver lig med eller større end 01-01-20xx (nye år).

I A-kolonnen står altså eks.

A2 =01-06-2008
A3 =02-06-2008
A4 =04-06-2008
-
A100 =30-12-2008 (Herefter skal løkken stoppe!!!)
A101 =03-01-2009

Her skal der altså kopieres data fra række 2 til og med række 100 over i fane "Ark3"

VBAkode indtil videre =

Sub OverforData()

Dim irow As Integer
Dim icountrows As Integer
Dim sEndDate As String
Dim iEndDate As Integer
Dim sBeginDate As String
Dim iBeginDate As Integer
Dim sStartcell As String


Range("J2").Select
ActiveCell.FormulaR1C1 = "=YEAR(RC[-9])"
sEndDate = "01-01-" & ActiveSheet.Cells(2, 10).Text + 1
sBeginDate = "01-01-" & ActiveSheet.Cells(2, 10).Text

irow = 2
sStartcell = ActiveSheet.Cells(irow, 1).Text

Do Until sStartcell > sEndDate
    irow = irow + 1
    sStartcell = ActiveSheet.Cells(irow, 1).Text
Loop

Range("A2;G & irow").Select
Selection.Copy
Sheets("Ark3").Select
Range("a2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Range("H2").Select
End Sub