Inlezen data uit een sheet en terugplaatsen in een andere.

[bascas]

Beste helpers,
Ik gebruik onderstaand VBA om data te selecteren en te kopieëren en vervolgens in een ander bestand te plakken.
Nu wil graag als de data geplakt wordt dat het om de regel wordt geplakt.
Ter verduidelijking de 'vuluren' moeten worden ingelezen in de 'inleestest'

Groet Bas

Sub colli_importeren()

Dim nvsp As Workbook 'nsvp = nieuwe vulshiftplanning
Set nvsp = ActiveWorkbook
Sheets(1).Activate

'vulurenbestand openen
Dim inputbestand As Variant
inputbestand = Application.GetOpenFilename
If inputbestand <> False Then
MsgBox "Open " & inputbestand
Workbooks.Open FileName:=inputbestand, local:=True
End If

Dim collibestand As Workbook
Set collibestand = ActiveWorkbook

'vulurendata selecteren en kopieren
Range("B7").Activate
Range(Selection, Selection.End(xlDown).Offset(0, 3)).Select
Selection.Copy

'vulshiftplanning seleteren en plakken
nvsp.Activate 'vulshift
Range("D20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

'inputbestand vuluren sluiten
Application.DisplayAlerts = False
collibestand.Close savechanges:=False
Application.DisplayAlerts = True

End Sub

 'Workbooks.Add
    
    Dim inputbestand As Variant
    inputbestand = Application.GetOpenFilename
    If inputbestand <> False Then
    MsgBox "Open " & inputbestand
    Workbooks.Open FileName:=inputbestand, local:=True
    End If
      
    
    Range("B7").Select
    ActiveWorkbook.Names.Add Name:="startcel", RefersToR1C1:="=Sheet1"
    Range("B7").Select
    Range(Selection, Selection.End(xlDown).Offset(-1, 3)).Select
    'Range("A7:C21").Select
    Selection.Copy
    Windows("Nieuwe vulshiftplanning versie 3 winkel.xls").Activate
    Range("D20").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    'Range("I32").Select
End Sub

 

[AHulpje]

Roep deze aan na het kopiëren of verwerk hem in je kopieerroutine:

Sub InvoegenLegerijen()
    For r = Range("D20").End(xlDown).Row To 21 Step -1
        Rows(r).Insert Shift:=xlDown
    Next
End Sub

 

[JEC.]

De data komt waarschijnlijk eerst uit een tekstbestand, waarna je de data vanuit Excel wilt transformeren (naar een ander bestand).
Ik zou zeggen, gebruik Power Query via Get Data --> from Text/CSV --> transformeren -->> hier kun je de lege regels simpel invoegen en gelijk ophalen vanuit het bestand waarin je de data wilt hebben.

 

[bascas]

De data komt uit een ckv bestand, maar ik heb het opgelost. Bedankt voor de hulp.