Kolom z t/m a op actieve kolom

[maartenmars]

Ik wil graag een kolom in absolute waarde zien om de grootste absolute getallen te bekijken. Ik moet dit alleen voor heel veel rapportages bekijken. Dus heb ik de volgende macro geschreven die de kolom van een afgeleide kolom vult met de formule =abs() en daarna op de kop van de kolom geselecteerd staat. Nu wil ik graag ook nog een code die deze kolom van z naar a selecteerd.

Sub ABSLijst()
ActiveCell.FormulaR1C1 = "=ABS(RC[-1])"
Selection.End(xlUp).Select
Selection.End(xlUp).Select
ActiveCell.FormulaR1C1 = "ABS"
End Sub

Hoe kan ik deze code aanvullen?

Bij voorbaat dank.