Sub Price_Increase_10_pts()
      ' Selected cell is *first line in column of data to be updated*.
      Selection.Select
      ' Set Do loop to stop when an empty cell is reached.
      Do Until IsEmpty(ActiveCell)
		' * 1.1 is 10% increase...adjust to your desired increase / decrease
        ActiveCell.Value = Round(ActiveCell.Value * 1.1, 2)
         ' Step down 1 row from present location.
         ActiveCell.Offset(1, 0).Select
      Loop
   End Sub