Kopioi solua A1 solussa B1 olevan määrän verran

Taul1 solussa A1 siirrettävä luku ja B1 määrä siirretään Taul2 alkaen A1.
Muuta nimet ja solualueet sopivaksi

Sub koe()
With Worksheets("Taul2")
.Range("A:A") = ""
.Range("A1:A" & Worksheets("Taul1").Range("B1")) = Worksheets("Taul1").Range("A1")
End With

Keep EXCELing
@Kunde

KIITOS PALJON Kunde.
Miten tämän saman saisi vielä toimimaan niin että Taul1 monella rivillä A1:A10 siirrettävät ja B1:B10 määrät, Kaikki siirtyisi Taul2 A1:A allekkain.

Sub koe2()
Dim Solu As Range
Dim i As Long
i = 1
With Worksheets("Taul2")
.Range("A:A") = ""
For Each Solu In Worksheets("Taul1").Range("A1:A10")
.Range("A" & i).Resize(Solu.Offset(0, 1)) = Solu
i = i Solu.Offset(0, 1)
Next
End With

keep EXCELing
@Kunde

Näyttäisi toimivan hienosti.
KIITOS TAAS KUNDE!!

Kiitos! nyt toimii täydellisesti.