Shift range of cells on active row left or right

[Zoops]

Hi all,

I'm having a bit of a nightmare here. I have what is essentially a planner: First five columns are static data and then I have thirteen empty columns. After that I have a number of hours per week for the entire year, and then another thirteen empty columns, and calculation columns after

What I really need is a macro that I can run on the row of the active cell that will copy everything in the empty cells and number of hours, and either shift it one cell left or right without affecting the first five columns or the calculation columns.

TL:DR
To make it a bit easier, how can I make a macro that will cut everything on the active row only, between columns AB:DC
and then paste it either one cell to the left or right

It sounds like it should be very easy but for the life of me I can't figure it out.

 

[decadence]

This will move the active cell row between AB:DC left or right depending on what you want

Sub MoveRow()
'
Set SRange = range("AB" & ActiveCell.Row)
Set ERange = range("DC" & ActiveCell.Row)
Set SERange = range(SRange, ERange)

SERange.Cut Destination:=SERange.Offset(0, -1) ' Move Left Once
' OR
SERange.Cut Destination:=SERange.Offset(0, 1) ' Move Right Once

End Sub

 

[Zoops]

That is absolutely brilliant thanks very much! I didn't think of just putting & ActiveCell.Row... I kept trying to declare another variable as ActiveCell.Row and then putting that in. Silly me

 

[decadence]

Your Welcome