Sub MoveDown()
ActiveCell.Offset(1, 0).Select
End Sub
Sub MoveUp()
ActiveCell.Offset(-1, 0).Select
End Sub
Sub MoveRight()
ActiveCell.Offset(0, 1).Select
End Sub
Sub DownLeft()
ActiveCell.Offset(0, -1).Select
End Sub
Sub LastCellInRange()
Range(ActiveCell.Address).End(xlDown).Select
Range(ActiveCell.Address).End(xlToRight).Select
End Sub
VBA Outlook KPI Excel Alt+F11 Dashboards Macros Recording Graphs Automation Developer WaterFall Powerpoint Charts Pivot Tables Forecast Charts