here's my code

If Worksheets("selector").Range("b5").Value2 = "" Then
Set startrange = Range("b5")
ElseIf Worksheets("selector").Range("b6").Value2 = "" Then
Set startrange = Range("b6")
ElseIf Worksheets("selector").Range("b7").Value2 = "" Then
Set startrange = Range("b7")
ElseIf Worksheets("selector").Range("b8").Value2 = "" Then
Set startrange = Range("b8")
ElseIf Worksheets("selector").Range("b9").Value2 = "" Then
Set startrange = Range("b9")
ElseIf Worksheets("selector").Range("b10").Value2 = "" Then
Set startrange = Range("b10")
ElseIf Worksheets("selector").Range("b11").Value2 = "" Then
Set startrange = Range("b11")
ElseIf Worksheets("selector").Range("b12").Value2 = "" Then
Set startrange = Range("b12")
ElseIf Worksheets("selector").Range("b13").Value2 = "" Then
Set startrange = Range("b13")
ElseIf Worksheets("selector").Range("b14").Value2 = "" Then
Set startrange = Range("b14")
ElseIf Worksheets("selector").Range("b15").Value2 = "" Then
Set startrange = Range("b15")
Else: info = MsgBox("Sorry, you may only enter 10 songs at a time!",
vbOKOnly, "Maximum Songs Input")
End If
snginp = MsgBox("Please verify " + song + " " + folder + " " + volume + "
" + disk + " " + num, vbYesNo, "Verify Input")
If snginp = vbYes Then
**** Worksheets("selector").Range(startrange).Value2 = song ****
nextrange = startrange.Offset(rowoffset:=0, columnoffset:=1)
Worksheets("selector").Range(nexttrange).Value2 = folder
nextrange = nextrange.Offset(rowoffset:=0, columnoffset:=1)
Worksheets("selector").Range(nextrange).Value2 = volume
nextrange = nextrange.Offset(rowoffset:=0, columnoffset:=1)
Worksheets("selector").Range(nextrange).Value2 = disk
nextrange = nextrange.Offset(rowoffset:=0, columnoffset:=1)
Worksheets("selector").Range(nextrange).Value2 = num


Error occurs at the line enclosed in **** ****

I need my input to be based on the first blank cell in a range.

Any suggestions?