VBA Copy Data and Paste Problem??? 1

[mbarnett]

Hi All,

I have a spreadsheet were I copy data from A1:AD500 and paste it in another spreadsheet. My problem - I want to paste the data but have a row in between each line.

Basically I have to insert a blank row in between each data row. Is this possible???

For example -

100

200

300

 

[macropod]

Hi,

Try something based on:

Sub SpaceOut()
For i = 1 To 5000
Worksheets("Sheet2").Cells(i * 2, 1).Value = Worksheets("Sheet1").Cells(i, 1).Value
Next
End Sub

This takes the values in column A on sheet 1 and copies them to every second row on sheet 2.

Cheers

Cheers