Hallo "Forümler"

ich stehe in einem schier aussichtslosen Kampf gegen ein Dateiimportfile aus AS400 auf Excel. Ich erhalte ein
11000 Zeilen umfassendes Datenfile mit 18 Kolonnen. In der ersten Kolonne sind als Referenz die Artikelnummern.
Wenn ich in dieser Kolonne über suchen einen Artikel herauspicken möchte so funktioniert dies gut.

Wenn ich aber aus einer neuen Tabelle einen Querverweis auf die Artikelnummer mache, so zeigt die Tabelle #NV an.
Gehe ich jetzt in die Datenttabelle und doppelklicke auf die gesuchte Aertickelnummer,
so verschwindet #NV und der richtige Wert erscheint.
Mein Macro bewirkt aber nicht das richtige. was mache habe ich falsch zusammengestellt?

Sub Artikelnummerkonvertieren()
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 3 Step -1
If (Cells(iRow, 1) > "0") Then
B = ActiveCell.Value
ActiveCell.FormulaR1C1 = B
End If
Next iRow

MFG und besten Dank Urs