verticaal zoekresultaat doorvoeren

[dvejam]

Goedemorgen,

Hoe kan ik het resultaat van verticaal zoeken automatisch laten doorvoeren op het blad data.

Sub Orderhistorie()
Application.ScreenUpdating = False
With Sheets("Data")
    .Cells.Clear
        With Sheets("Import")
            .UsedRange.Cells.Copy Sheets("Data").[A1]
            .Cells.AutoFilter
        End With
       .Columns.AutoFit
       .Columns(6).Insert
       .Cells(1, 6) = "Bestelwijze"
      End With
       
    Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("data")
With ws
    .Range("F2").Formula = "=VLOOKUP(E2,Bestelwijze!$A:$B,2,0)"
 
End With
End Sub

Ik heb een voorbeeld bestand toegevoegd.

 

[Timshel]

Sub Orderhistorie()
Application.ScreenUpdating = False
With Sheets("Data")
    .Cells.Clear
        With Sheets("Import")
            .UsedRange.Cells.Copy Sheets("Data").[A1]
            .Cells.AutoFilter
        End With
       .Columns.AutoFit
       .Columns(6).Insert
       .Cells(1, 6) = "Bestelwijze"
      End With
       
    Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("data")
With ws
    .Range("F2").Formula = "=VLOOKUP(E2,Bestelwijze!$A:$B,2,0)"
[COLOR="#FF0000"]    .Range("F2:F" & .Cells(Rows.Count, 5).End(xlUp).Row).FillDown
[/COLOR]End With
End Sub

 

[HSV]

Of:

Sub Orderhistorie()
Application.ScreenUpdating = False
With Sheets("Data")
  .Cells(1).CurrentRegion.Clear
        With Sheets("Import")
            .UsedRange.Cells.Copy Sheets("Data").[A1]
            .Cells.AutoFilter
        End With
       
       .Columns(6).Insert
       .Cells(1, 6) = "Bestelwijze"
       .Cells(2, 6) = .Cells(2, 7).Formula
       .Cells(2, 6).AutoFill .Columns(5).SpecialCells(2).Offset(1).SpecialCells(2).Offset(, 1)
       .Columns.AutoFit
      End With
End Sub

 

[dvejam]

Excuses voor verlate reactie maar dank voor de hulp. Bij deze opgelost.