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:
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)