Hallo,
Dit kan een aanzet geven als A10 een getal bevat, zonder die "A". Als er wel een "A" bij staat gebruik dan de 2de "cnt"regel.
Sub test()
Dim cnt As Long
cnt = Range("A10")
'cnt = Application.Substitute(Range("A10"), "A", "")
Range("B2").Copy Range("B2:B" & cnt)
End Sub
Ik vermoed echter dat je in A10 enkel de "laatste rij" bijhoudt. Als dat zo is, kan de code nog verbeterd worden.
beste groeten,
Erik