Sub Price_Increase_10_pts() Sheet = ThisComponent.CurrentController.ActiveSheet ' Selected cell is *first line in column of data to be updated*. Cell = ThisComponent.getCurrentSelection ' Set While loop to stop when an empty cell is reached. While Cell.Value > 0 ' * 1.1 is 10% increase...adjust to your desired increase / decrease Cell.Value = Cell.Value * 1.1 ' Step down 1 row from present location. Cell = Sheet.getCellByPosition(Cell.CellAddress.Column, Cell.CellAddress.Row+1) Wend End Sub