Gegevens wegschrijven in lege rij

[edsel_nl]

Hallo,

Ik heb al even gezocht op het forum maar kom er nog steeds niet helemaal uit. Ik heb de onderstaande code gemaakt om gegevens te copieren van de ene file naar de andere. Nu is mijn vraag hoe kan ik er voor zorgen dat de formule naar een lege rij zoekt (overzicht.xls) en daar de gegevens plakt. Zodat niet elke keer de gegevens worden overschreven maar juist onder elkaar geplakt. Zie bijlage voor klein voorbeeldje.

Sub Macro3()
' Macro3 Macro
    Range("A3:I5").Select
    Selection.Copy
    Windows("Overzicht.xls").Activate
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Windows("Input.xls").Activate
    Range("C3:I5").Select
    Range("I5").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A1").Select
End Sub

 

[Ginger]

Edsel_nl, Vervang deze coderegel...

Range("A3").Select

...voor deze...

Range("A" & Rows.Count).End(xlUp).Offset(1).Select

Uiteraard kan je je code nog een stuk korter maken door 'select's' en 'activate's' te verwijderen, maar hiermee ben je in iedergeval geholpen.

Groet, Leo