Excelmacro för att flytta x antal celler till vänster/höger?

Jag är inte helt säker jag förstod frågan men här är något som kanske kan hjälpa dig på traven

Sub Flytta()
On Error Resume Next
ActiveCell.Offset(0, X).Range("A1").Select

End Sub

Där X är antal steg (negativt tal för vänster, possitivt tal för höger)