Pasting data into every second row, and also pasting it as a duplicate

Hi there,

I need to copy the data in Column G of 'workings', and then paste it into 'template' at L39, but need each line to duplicate.
So it will show:
ICT.1516.001
ICT.1516.001
ICT.1516.003
ICT.1516.003
ICT.1516.004
ICT.1516.004 etc - I'll need to do this for another 1 or 2 columns also (column T to J as per above)


I also need to copy Column E from 'workings' and paste it into 'template' at D39, but have it paste into every second row:
55

55

55

54

30
I also need to do this with more columns

Any help would be greatly appreciated!!

Thanks for that!

How would I put that into VBA?

Try this:

Please Login or Register  to view this content.

Thanks!
It comes up with run time error 91 - object variable or With block variable not set

It worked ok for me - can you re-upload your spreadsheet so I can have a look at what's happening?

Thanks for your help! Really appreciate it.

I'm not getting the same error, but I am getting other errors. Have you removed most of the data from the spreadsheet? I suspect that the cause of the problem for me is the code is expecting data to be where there is none? In any case, I have a couple general suggestions:

1) Avoid declaring variables as Integers, and use Long instead. There are more rows in Excel than can fit in the Integer data type. Even if your spreadsheet doesn't have that many rows, there is no downside to using Long

2) Avoid using Select and Activate - this will speed things up greatly

Thanks for the advice.

I'm not running the whole macro (as I'm not yet finished), I am just stepping through the lines. They're right at the bottom of Module 3.
I'm getting the error on the line
Do While Workings.Cells(rW, 7).Value <> vbNullString