Sub Info_aus_Tab2_in_Tab1()
Dim Zeile   As Integer
Dim iZeile  As Integer
Dim zLetzte As Integer

On Error GoTo Info_aus_Tab2_in_Tab1_err

' ich gehe davon aus, dass Tabelle2 alle Daten enthält die in Tabelle 1 kopiert werden sollen
' Spalte A enthält in beiden Tabellen die Artikelnummer, beide Tabellen sind nach Artikelnummer sortiert
' es gibt keine Leerzeilen, es beginnt in Zeile2, da zeile 1 die Überschriften enthält
' in Spalte B steht Info 1 und in Spalte C steht Info 2
' Du musst natürlich diese Angaben alle entsprechend anpassen.

Zeile = 1 ' Zeile aus der gelesen wird
zLetzte = Range("A65536").End(xlUp).Row
For iZeile = 2 To zLetzte  'Zeile in die geschrieben wird
        Zeile = Zeile + 1
        While Tabelle2.Cells(Zeile, 1) <> Tabelle1.Cells(iZeile, 1)
            Zeile = Zeile + 1
            If Tabelle2.Cells(Zeile, 1) = "" Then Exit Sub  ' vorsichtshalber einschränken
        Wend
        Tabelle1.Cells(iZeile, 2) = Tabelle2.Cells(Zeile, 2) ' in Spalte 2 info 1 eintragen
        Tabelle1.Cells(iZeile, 3) = Tabelle2.Cells(Zeile, 3) ' in Spalte 3 info 2 eintragen
Next iZeile

Exit Sub
Info_aus_Tab2_in_Tab1_err:
 MsgBox Error$, Str$(Err)
 Err.Clear
End Sub