When I wrote simple macros using Lotus 1-2-3 (fifteen years ago) I could easily perform simple repetitive activities. For example I have a list of several thousand rows with amounts that have a letter or symbol appended to the end. In lotus I could {edit}{Backspace}~{Down} and each cell would have the letter removed and the value entered in the active cell. When I try this with Visual Basic in Excel, the macro enters the value that is in the cell used to write the macro, i.e., when executed it enters the same value in every cell regardless of what the actual contents are. For example, using the following ten cell contents in Excel
00000072K
00000755}
00000141O
00000802N
00000921M
00001520}
00000110L
00001981}
00001460N
00000235Q

The resulting macro for the first five looks like this:
Sub Macro1()
'
' Macro1 Macro
' strip
'
' Keyboard Shortcut: Ctrl+q
'
ActiveCell.FormulaR1C1 = "0.72"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "7.55"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "1.41"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "8.02"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "9.21"
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

When I run this macro twice, i.e., once for each 5 cells the results (the same results twice!!) are in the left column… The desired results are in the right column.
Should be
0.72 0.72
7.55 7.55
1.41 1.41
8.02 8.02
9.21 9.21
0.72 15.2
7.55 1.1
1.41 19.81
8.02 14.6
9.21 2.35

What am I doing wrong? How do I get the results I want?