formule omzetten naar VBA code

[bartman1980]

Ik wil graag de formule:
=ALS(A13=5;E13;ALS(A12=5;E12;ALS(A11=5;E11;ALS(A10=5;E10;ALS(A9=5;E9;ALS(A8*=5;E8;E7))))))
Omzetten naar een Macro, alleen weet ik niet hoe.

Dit is in geschreven tekst wat hij moet doen.
Op elke rij in kolom E staat een artikelgroep of artikelnummer.
Nu staat er bij elke artikelgroep een omschrijving welke bij meerder
artikelnummers hoort.
Het is dus eigenlijk de bedoeling dat de omschrijving van een
artikelgroep gekopieerd wordt en naast de cel van het artikelnummer
komt.


In kolom A staat in de cellen een 5 of een 6.
Als er een 5 staat, dan staat er in de kolom E een
artikelgroepomschrijving welke gekopieerd moet worden naar een cel (in
dit geval kolom D).
Als er een 6 staat, dan moet hij dus één cel naar boven om te kijken
of dat er een 5 staat.

Zelf had ik dit in gedachte:

On Error GoTo Einde
For i = Sheets(1).Range("a65000").End(xlUp).Row To 1 Step -1
If Cells("A" & i - 2) = 5 Then
Cells("E" & i).Select
Selection.Copy
Cells("D" & i - 1).Select
Selection.Paste
Else
End If
Next
Einde:


Maar dit werkt niet zoals ik wil.
Heeft er iemand nog een tip misschien?

 

[Jan van Asseldonk]

Kun je dit niet met verticaal zoeken oplossen?

Plaats anders even een klein voorbeeld (gezipt) hier.
Dat geeft sneller duidelijkheid en ook sneller een oplossing.