My copy down didn't work very well. Is there a function I can change it to so the code isn't 5000 pages long? The data size will change each time so I need to incorporate that instead of having a set range, the columns will always be set in stone though.

Code:

```
Sub changealphaclient()
'
' changealphaclient Macro
' Macro recorded 24/11/2011 by jmartin
'
'
Range("AT2").Select
ActiveCell.FormulaR1C1 = "=TRIM(RC[-42])"
Range("AT2").Select
Selection.AutoFill Destination:=Range("AT2:AT8164"), Type:=xlFillDefault
Range("AT2:AT8164").Select
Columns("AT:AT").EntireColumn.AutoFit
ActiveWindow.SmallScroll Down:=-60
ActiveWindow.LargeScroll Down:=1
ActiveWindow.ScrollRow = 6031
ActiveWindow.ScrollRow = 6008
ActiveWindow.ScrollRow = 5984
ActiveWindow.ScrollRow = 5949
ActiveWindow.ScrollRow = 5879
ActiveWindow.ScrollRow = 5821
ActiveWindow.ScrollRow = 5739
ActiveWindow.ScrollRow = 5645
ActiveWindow.ScrollRow = 5552
ActiveWindow.ScrollRow = 4453
ActiveWindow.ScrollRow = 4313
ActiveWindow.ScrollRow = 4173
ActiveWindow.ScrollRow = 4021
ActiveWindow.ScrollRow = 3881
ActiveWindow.ScrollRow = 3203
ActiveWindow.ScrollRow = 3051
ActiveWindow.ScrollRow = 2899
ActiveWindow.ScrollRow = 2759
ActiveWindow.ScrollRow = 2595
ActiveWindow.ScrollRow = 2443
ActiveWindow.ScrollRow = 2303
ActiveWindow.ScrollRow = 2151
ActiveWindow.ScrollRow = 2011
ActiveWindow.ScrollRow = 1882
ActiveWindow.ScrollRow = 1742
ActiveWindow.ScrollRow = 1637
ActiveWindow.ScrollRow = 1485
ActiveWindow.ScrollRow = 1357
ActiveWindow.ScrollRow = 1216
ActiveWindow.ScrollRow = 1088
ActiveWindow.ScrollRow = 948
ActiveWindow.ScrollRow = 842
ActiveWindow.ScrollRow = 749
ActiveWindow.ScrollRow = 667
ActiveWindow.ScrollRow = 609
ActiveWindow.ScrollRow = 539
ActiveWindow.ScrollRow = 504
ActiveWindow.ScrollRow = 457
ActiveWindow.ScrollRow = 422
ActiveWindow.ScrollRow = 387
ActiveWindow.ScrollRow = 352
ActiveWindow.ScrollRow = 340
ActiveWindow.ScrollRow = 305
ActiveWindow.ScrollRow = 281
ActiveWindow.ScrollRow = 258
ActiveWindow.ScrollRow = 235
ActiveWindow.ScrollRow = 200
ActiveWindow.ScrollRow = 153
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 83
ActiveWindow.ScrollRow = 48
ActiveWindow.ScrollRow = 1
Range("AU2").Select
ActiveCell.FormulaR1C1 = "=TRIM(RC[-42])"
Range("AU2").Select
Selection.AutoFill Destination:=Range("AU2:AU8164")
Range("AU2:AU8164").Select
Columns("AT:AU").Select
Selection.Copy
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Columns("D:D").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Alphaname"
Range("E1").Select
ActiveCell.FormulaR1C1 = "Longname"
Range("E2").Select
End Sub
```