Code starts in wrong place

[Janet052]

I am using code from J.E. McGimpsey's site, which works great. I have a problem with the code starting on the wrong line, but cannot figure out how to correct it. This is the table before the code is run:

column A colum B
Name Random Number Assignment
Janet
Janet
Mark
Sam
Sam
Sam


Tabel after code is run: The title in column B gets overwritten with a random number and the last row is blank

column A colum B
Name 3
Janet 6
Janet 2
Mark 8
Sam 7
Sam 4
Sam

This is the code:
Sub RandomNumber()
Dim Lowest As Long
Dim Highest As Long
Dim x As Long
Dim y As Long
Dim Total As Long
Dim ChoiceTemp As Long
Dim Choice() As Long
Dim Repeat As Boolean

Application.ScreenUpdating = False
Lowest = 1
Highest = InputBox("what is the highest number?")
Total = InputBox("How many combinations do you want")

ReDim Choice(1 To Total)

For x = 1 To Total
a:
Randomize
Repeat = False
ChoiceTemp = Int((Highest + 1 - Lowest) * Rnd + Lowest)

For y = 1 To Total
If Choice = ChoiceTemp Then
Repeat = True
Else
End If
Next y
If Repeat = True Then
GoTo a:
Else
Choice(x) = ChoiceTemp
End If
Next x
For x = 1 To Total

Sheets("Sheet1").Range("B" & x).Value = Choice(x)


Next

End Sub

 

[RSXchin]

what line does it start on, and where do you WANT it to start?

 

[Janet052]

The random number generator should enter its first number starting in "B2" and end on "B7" with the last name encountered in column A. The High would be 6 in this example with 6 combinations.

 

[RSXchin]

change this
For x = 1 To Total
to

For x = 2 To Total + 1

 

[RSXchin]

also... why do you declare x twice and never use it the second time?

 

[Janet052]

I did do that at one point and it solved half the problem. The other problem is that the last name in Col A does not have a number assigned to it. I had resolved simply to remember to add "1" to the number of names that were in Col A. This fixes the problem, but I am not sure why, or if it is the best way to take care of the "blank"

 

[RSXchin]

you're confused why you need to add 1? or what are you confused about?

 

[Janet052]

Sorry, I am not very good at this. A novice at best.

I have values in A2:A7 that need a random number assigned in B2:B7. Since there are 6 values from A2:A7, I use the number 6 as my input in the message box and 6 for the number of combinations that I am asking the random number generator to produce in B2:B7.

What happens is the first number generated is put in B1, which the solution of " For x = 2 To Total" resolved. Random numbers are entered starting in cell B2 through B6.

B7 is left blank with no random number.

 

[meldoc]

Hello

Try this.

change this line back to this.

For x = 1 To Total

And change the line starting with Sheets to.

Sheets("Sheet1").Range("B" & x).Offset(1).Value = Choice(x)

 

[Janet052]

That worked. Thanks!!!