Move 10 Columns of data to a single column

Hello,

So there are two parts to this post as I would like to learn along the way.

1. I have the input and it is 10 columns of data but I would like a macro that copies all data to column A.
Column A stays in A, Col B moves to the bottom of Col A data, Col C moves to the bottom of Col A data.
I have included 'Output' worksheet as an example of the output.
I would also like this macro to work on a variable amount of columns. So it will work if there are 4 columns or 11 columns.

2. Now, I would like to take the Output and add a prefix and a suffix to the single column of data created in part 1.

3. If anyone really wants to show off they can copy the final single column to txt then save the txt with the extension '.dxf'.

Not sure how to end these forums since it is my first so thank you in advance.

try below code

Please Login or Register  to view this content.

Replace

PHP Code: 

With Sheets("Input")
    lr = .Range("A1").CurrentRegion.Rows.Count
    rng = .Range("A1:J" & lr).Value ' If data from column A to J (10 columns)
End With 


with

PHP Code: 

With Sheets("Input")
    rng = .Range("A1").CurrentRegion.Value
End With 


Another possibility. Change references where required.

Please Login or Register  to view this content.

Simply

Please Login or Register  to view this content.