i'll add a wee bit, cos i just changed it(a bit that didn't make sense
before), and add a bit to the case, so you have an idea

......

Do While ActiveCell.Value < ""
Range("J" & i).Select

Select Case ActiveCell.Value
case 1
A = "65"
case 2
A = "50"
....
....

End Select

......