Overførelse af række data hvis krav bliver opfyldt

Hej
Jeg er ved at lave en makro der kan overfører en række data fra et ark til et andet ark i regnearket. Overførelsen skal ske for hver enkel række hvis et krav bliver opfyldt.

Lidt mere konkret kunne det være at der på ark 1 stod:
Personaletimer
Konsulenttimer
Kørsel
Test
Personaletimer
I formlen skal den kun overfører de data der hænger sammen med Personaletimer.

Har fået denne makro til at virke men kun på et enkelt felt og ikke en hel række:
Sub Identificer()

Dim text As String
text = Range("A1").Value

If text = "Personaletimer" Then result = Worksheets("Ark2").Range("I1")

Range("B1").Value = result

End Sub

Virker altså ikke hvis man skriver:
Sub Identificer()

Dim text As String
text = Range("A1:A2").Value

If text = "Personaletimer" Then result = Worksheets("Ark2").Range("I1:I2")

Range("B1:B2").Value = result

End Sub

Måske der skal stå en anden type før sub.

Nogen der kan hjælpe?