Excel XP

Column A has record numbers: some repeat; some do not. Columns B through K
contain other data. Sheet is sorted by Column A. I want to add a blank row
before each new number.

Example: I have

1
1
2
2
2
3

I want:

1
1

2
2
2

3

I can do this using subtotals to count and then delete the contents of the
count rows with helper columns.

I can do this by using Countif in a helper column to number each entry and
then using Advanced Filter to add each record number one more time to the end
of column A. I then add a number greater than the largest result of the
Countif (e.g.: 1000) to all the newly added record numbers and re-sort. Then
I have to delete the text in the rows with "1000."

Is there a simpler way to do this? I would prefer not to use VB as I am
totally unfamiliar with it.

Thanks