Cell copy the data to another cell and insert a blank row

**dpatel** · 05-30-2012, 02:23 AM

Hi,

Hope some one can help me on my query. I would like to write a macro which display a result as describe on the attachment. Is it possible to copy the data from one cell to other cell and insert a blank row?

Thanks for your help!

**tom1977** · 05-30-2012, 02:36 AM

Hi
select your range and run this

Sub aa()
Dim c As Range
Dim x As Long
x = 5
For Each c In Selection
    Cells(x, 3) = c
    x = x + 2
    Next
End Sub

tell is it ok?

**dpatel** · 05-30-2012, 04:02 AM

Hi Tom1977,

Thanks for your quick reply. Would you mind to attached any example to understand? I have never write any macro in excel. Also will this solution match the result describe on my "dummy_data" attachment?

Thanks

**tom1977** · 05-30-2012, 04:08 AM

In attachment there is file with macro
select your range press Alt + F11 and press F5 to run code (this is one of few method to run macro)

**dpatel** · 05-30-2012, 04:29 AM

I have tried the script and selecte the range but It doesn't show the result as mentioned on my initial file. How can i replicate this script to my dummy_data file?

Thanks in advanced!

**tom1977** · 05-30-2012, 04:38 AM

In your first post was such statment

write a macro which display a result as describe on the attachment

and in your file is this

Results shoud be here

So I was able only to guess what results should be and my code does what I read from above.

And if You want run code in Your file:
1. Press Alt + F11
2. Press "insert" on windows tab which will appear
3. choose module
4. past code into module.

and use e.g. pressing F5