Macro to move highlighted range up or down a row by using arrows

[oblix]

Is it possible to highlight a range (say B5 to F6) and use a macro to let user move row up or down by arrows?
If so what would the code look like?

Thank you in advance

 

[Legacy 143009]

Ok, create a new module in project window and paste this in it:

Public r As Integer 'Row Position
Public c As Integer 'Column Position
Public h As Integer 'Row Height
Public w As Integer 'Column Width
Sub offsetCellsLeft()
Call offsetClearCells
  c = c - 1
  Call offsetDrawCells
End Sub
Sub offsetCellsRight()
  Call offsetClearCells
  c = c + 1
  Call offsetDrawCells
End Sub
Sub offsetCellsUp()
  Call offsetClearCells
  r = r - 1
  Call offsetDrawCells
End Sub
Sub offsetCellsDown()
  Call offsetClearCells
  r = r + 1
  Call offsetDrawCells
End Sub
Sub offsetClearCells()
For j = c To (c + w) - 1
  For i = r To (r + h) - 1
    Cells(i, j).Interior.ColorIndex = xlNone
  Next
Next
End Sub
Sub offsetDrawCells()
For j = c To (c + w) - 1
  For i = r To (r + h) - 1
    Cells(i, j).Interior.ColorIndex = 6
  Next
Next
End Sub

Now double click to Workbook in project window and paste this:

Private Sub Workbook_Open()
  r = 5
  h = 2
  c = 2
  w = 5
 
  Call offsetDrawCells
  Application.OnKey "{LEFT}", "offsetCellsLeft"
  Application.OnKey "{RIGHT}", "offsetCellsRight"
  Application.OnKey "{UP}", "offsetCellsUp"
  Application.OnKey "{DOWN}", "offsetCellsDown"

End Sub

Save the workbook and close it. Reopen and allow macros Have a nice day!

 

[oblix]

Thank you for solution

 

[Legacy 143009]

Thanks for the feedback

 

[oblix]

Can this Code be changed to hold in alt and arrow keys to move?

 

[Legacy 143009]

Change this part:

Application.OnKey "{LEFT}", "offsetCellsLeft"
Application.OnKey "{RIGHT}", "offsetCellsRight"
Application.OnKey "{UP}", "offsetCellsUp"
Application.OnKey "{DOWN}", "offsetCellsDown"

To this:

Application.OnKey "%{LEFT}", "offsetCellsLeft"
Application.OnKey "%{RIGHT}", "offsetCellsRight"
Application.OnKey "%{UP}", "offsetCellsUp"
Application.OnKey "%{DOWN}", "offsetCellsDown"

 

[oblix]

Thank you
Much appreciated