kode der gentager det samme for 100 celler

Jeg har selv brygget denne kode sammen, men den er desværre håbløs udstruktureret.

I kolonne E1 - E100 står der nogle tal som der skal søges på.
Den skal herefter kopiere data fra kolonne E+F+G til kolonne A+B+C, i den række som indeholder samme data i kolonne A, som der står i kolonne E.
De data der skal kopieres fra E+F+G til A+B+C er meget sjældent i samme linje.

Min kode virker i og for sig godt nok, men jeg ønsker ikke at skrive den samme kode 100 gange (en gang for hver celle)

Er der ikke en der kan flette noget med....
For 1 to..... ind i det :-)

Eks.

kol a    kol e
1        1 
2        2
2a      3
3        4
3a      5
4        6
4a      7
4b      8




Sub Makro1()
Dim specnr As Variant
Dim specdata As Variant

specnr = Range("e1")
Range("e1").Select
ActiveCell.Range("A1:C1").Select
specdata = ActiveCell.Range("A1:C1")

Columns("A:A").Select
Selection.Find(What:=specnr, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate

ActiveCell.Range("A1:C1") = specdata



specnr = Range("e2")
Range("e2").Select
ActiveCell.Range("A1:C1").Select
specdata = ActiveCell.Range("A1:C1")

Columns("A:A").Select
Selection.Find(What:=specnr, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate

ActiveCell.Range("A1:C1") = specdata


specnr = Range("e3")
Range("e3").Select
ActiveCell.Range("A1:C1").Select
specdata = ActiveCell.Range("A1:C1")

Columns("A:A").Select
Selection.Find(What:=specnr, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate

ActiveCell.Range("A1:C1") = specdata

' osv........ men det er lidt tungt at man skal skrive det samme for e1 til e100


End Sub