Hi Everyone,
I'm using Excel 2016 and I can't seem to get my code to work.
Just for fun I'm trying to create a script that turns data stored in multiple columns to be moved to a single column.
ie data in cells A1:AE2000 to all end up under column A.
I'm using the cut method but it doesn't seem to work.
Any help would be greatly appreciated
Here's the code I've got:
Code
Dim x As Range 'The range to be cut
Dim x1 As Range 'The cell where x is to be moved to
Dim x2 As Range 'The first cell of range to be cut
Set x2 = Range("B2").End(xlDown)
Set x = Range(x2, x2.End(xlToRight))
Set x = Range(x, x.End(xlDown))
Set x1 = Range("A2").End(xlDown).Offset(1, 0)
x.Cut (x1)
Display More