Copy Range I times

[missginius]

Dear all,

I am a VBA newbie with a project that is definitely larger than me. I have a number of tasks I'd like to include to happen at one comfortable touch of a button. The first thing I am having issues with is the following:

Worksheet "Artikelliste" and Worksheet "Verpackungen" are needed.

I'd like to Count the amount of values in the column B in "Artikelliste" and Copy and Paste a range a certain amount of times in Worksheet "Verpackungen". The Range is also in the latter Worksheet. The templates which I am copying should all be neetly underneath each other, hence the offset.

Here is the Code which I am having probably a number of issues with. Could you give me some pointers?

Sub CopyTemplateITimes()


Dim i As Long

For i = 1 To Worksheets("Verpackungen").CountA(Range("B6:B100"))

Stop
Worksheets("Artikelliste").Range("B9:J21").Select
Selection.Copy
Range("B9").Offset(15, 0).Select

Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False


Next i

End Sub






Thank you so much for your time!
missginius

[LeoTaxi]

for sure you have issues with code and if you want
help to give good code you provide us file with sheet before and sheet after,
that give us an idee what you want to achive.

Kind regards
Leo