Selectie van gegevens importeren uit ander bestand

Hoi,

Ik ben een beginner op het gebied van VBA programmering en ben op zoek naar een script die het volgende doet:

In bestand A, sheet1 heb ik een kvk-nr die ik wil verrijken door deze weer te geven in bestand A, sheet2
De te verrijken gegevens komen uit bestand B.

De zoeksleutel uit bestand A is cel C4 (het kvk-nr).

Vervolgens moet deze zoeksleutel gaan zoeken in bestand B en de volgende data ophalen:
Als het kvk-nr in Bestand B, kolom A voorkomt, moet hij de gegevens weergeven die vermeld staan in kolom B.

Het kan voorkomen dat het kvk-nr in bestand B kolom A meermaals voorkomt.
Via een index formule moet hij die gegevens uit kolom B dan weergeven.

De resultaten moeten weergegeven worden in Bestand A, sheet 2, vanaf Cel A1

Als het kvk-nr niet voorkomt, moet er een msg box tevoorschijn komen met de melding: "KvK-nummer niet bekend in Bestand B"

Ik heb via Googlegezocht naar een dergelijk script die ik zelf kan wijzigen, maar helaas niet gevonden.
Ik ben nog niet voldoende onderlegd om zo'n script zelf te schrijven.

Wie kan me hierbij helpen of verwijzen naar een soortgelijk script?

Alvast bedankt voor de hulp!

Allereerst welkom bij HelpMij! Begin eens met twee voorbeeldbestandjes te posten, want ik denk niet dat iemand dit kant en klaar heeft liggen, en om nou eerst zelf data te gaan inkloppen... En alvast een 'waarschuwing' voordat je hem gebruikt (elke nieuwe gebruiker heeft een onbedwingbare neiging om hem aan te klikken ): de QUOTE knop is geen antwoordknop; je kunt gewoon antwoorden in het tekstvak <Snel reageren> .

TOt dusver heb ik dit bedacht:

Sub Importeerdata()


'''''Define Object for Target Workbook
Dim Target_Workbook As Workbook
Dim Source_Workbook As Workbook
Dim Target_Path As String

'''''Naam en locatie bronbestand
Target_Path = "Bestand B.xlsx"
Set Target_Workbook = Workbooks.Open(Target_Path)
Set Source_Workbook = ThisWorkbook

'''''Uit het bronbestand moet uit rij, kolom de volgende data worden opgehaald
Target_Data = Target_Workbook.Sheets(1).Cells(2, 1)

''''Dit zijn de cellen waar het naartoe geschreven wordt, in de volgorde: rij, kolom
Source_Workbook.Sheets(1).Cells(10, 2) = Target_Data
Source_Workbook.Sheets(1).Cells(11, 2) = Target_Data
Source_Workbook.Sheets(1).Cells(12, 2) = Target_Data
Source_Workbook.Sheets(1).Cells(13, 2) = Target_Data
Source_Workbook.Sheets(1).Cells(14, 2) = Target_Data
Source_Workbook.Sheets(1).Cells(15, 2) = Target_Data
Source_Workbook.Sheets(1).Cells(16, 2) = Target_Data

'''''Bronbestand sluiten
Source_Workbook.Save
Target_Workbook.Save
Target_Workbook.Close False

'''''Process Completed
MsgBox "Taak voltooid"

End Sub


De onderstaande regel wil ik echter uitbreiden met meerdere rijen en kolommen.
Target_Data = Target_Workbook.Sheets(1).Cells(2, 1)

Het gedeelte Cells moet dus uitgebreid worden, maar weet niet precies hoe ik die range moet verbreden.
Hoe kan ik deze regel aanpassen?