kopieren van ene werkmap naar andere met macro

[avancada]

Ik moet dus met een macro een paar rijen van de ene werkmap naar de andere kopieren.

Sub kopieren()
Dim begin As Integer, eind As Integer

begin = 1
eind = 15
For i = begin To eind
    Workbooks("BB " & begin & " - " & eind).Sheets ("BB " & i)
    Range("B7:C30").Copy
    Workbooks("Map1").Sheets ("Blad 1")
    Range("A" & (i - 1) * 24).PasteSpecial
Next i

Hoe ik werkmap en werkblad moet selecteren is fout(ik heb maar geprobeerd). Hoe kan je dit wel correct doen?
Gaat het met de laatste regel gewoon plakken?

 

[jzeedijk]

Hoi avancada,

Wat fout gaat is duidelijk, de bestanden waar je naar toe wilt schrijven zijn niet geopend. De vraag is zelfs of ze bestaan.

Kijk op de website van rondebruin.nl om tips te lezen over het openen of het aanmaken van bestanden om ranges naar toe te schrijven. Hij doet dat om een gedeelte van een sheet te versturen per e-mail.

Jeroen