¿Cómo hago un despegable?

Buenos días, tengo este código, el problema es que cuando escribe en la hoja que le mando, me lo escribe siempre en la misma fila y no en la siguiente que es lo que pretendo. También quiera saber si puedo hacer una selección despegable para cuando me salga el box poder elegir la hoja a la que quiero enviar. Me puede ayudar alguien?

Sub Rectángulo16_AlHacerClic()
On Error Resume Next
Do While ActiveCell.Value <> ""
hoja = InputBox(" COMERCIAL ASIGNADO?")
If hoja = "" Then Exit Sub
filalibre = Sheets(hoja).Range("a65000").End(xlUp).Row + 3
ActiveCell.EntireRow.Copy Destination:=Sheets(hoja).Cells(filalibre, 1)
ActiveCell.Offset(1, 0).Select
Loop
End Sub