Pasting Macro

[wilro85]

I'm working on a paste special macro so as to help aliviate some of the difficulties accociated with using my parts list.

If will work in the following manner

Paste the values to a static location (say forinstand, A200)
Count the size of the selection
Cut & Paste A200 to location
cut & paste A201 to location + 1
cut & paste A202 to location + 2
etc.

Here is the trick... when I get to row 40 or so, I have to skip about 4 rows then resume. How do I do that?

[Excelibur]

It's difficult to point out a good solution without knowing the basic code structure, but here's an idea:

Please Login or Register  to view this content.

Hope this helps!

[wilro85]

What I'm expirmenting with looks something like this. I just need an example of how to put a controled "skip" into the break.

Sub test()
co = ActiveCell.Column
ro = ActiveCell.Row
Range("A100").PasteSpecial Paste:=xlValues
num = Selection.Count
For i = 0 To num
Range((Cells(100 + i, 1))).Cut Range(Cells(ro + i, co)) 'I'm having an error here for some reason, too.
Next i
End Sub