Experts Exchange connects you with the people and services you need so you can get back to work.
Improve company productivity with a Business Account.Sign Up
Dim lLastRow As Long, lRowLoop As Long, lColLoop As Long
'turn off updates to speed up code execution
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
.DisplayAlerts = False
lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
For lColLoop = 25 To 4 Step -1
For lRowLoop = lLastRow To 4 Step -2
For lColLoop = 3 To 48 Step 2
Cells(lRowLoop, lColLoop).Cut Cells(lRowLoop - 1, lColLoop + 1)
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
.DisplayAlerts = True
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.