Eerste lege regel

[Foxmaster]

Beste Experts!

Ik ben al diverse oplossingen tegengekomen, echter ik krijg ze niet werkend. Ik wil gegevens van 2 tabbladen samenvoegen op 1 nieuw tabblad.
Hierbij moet alle data van het ene blad geplaatst worden onder de regels van het andere blad op een nieuw blad.
Dus op de eerste lege regel van het verzamelblad. Nu kan het voorkomen dat een cel niet gevuld is, maar de volgende regels wel volledig gevuld zijn.

Zie bijgaand voorbeeld bestand.

De data van Blad1 moet samengevoegd worden met de data van Blad2 op Blad3, onder elkaar, mbv een macro. Bekijk bijlage Voorbeeld.xlsx

 

[Foxmaster]

hierbij mijn brouwsel, samengesteld uit gevonden onderwerpen elders in dit forum.

Sub test()
'
' test Macro
'

'
    Sheets("Blad3").Select
    Cells.Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    Sheets("Blad1").Select
    Cells.Select
    Selection.Copy
    Sheets("Blad3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.End(xlDown).Select
    Range("A1000000").End(xlUp).Offset (1)
    Sheets("Blad2").Select
    Range("A2").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Blad3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

De macro loopt vast op .Offset (1)
Mijn kennis (afwezig) komt er niet verder mee.

Iemand een oplossing?

Alvast bedankt!

 

[Haije]

Fox,

maak van:
Range("A1000000").End(xlUp).Offset (1)
eens
Range("A1000000").End(xlUp).Offset(1).select

 

[Foxmaster]

Haije,

Dankjewel, geprobeerd en het werkt! Top!

groet,

Fox

 

[Haije]

Fox,

zet je de vraag dan nog even op "opgelost"?