Copiar texto de inputbox a otra hoja

Hola tengo el siguiente código, gracias a la experta ElsaMatilde, le hice unas adaptaciones según mis necesidades::

Private Sub CommandButton1_Click()
contá = Range("F1")
Sheets("REGISTROS").Range("A" & 1 + contá).Value = clave1 = InputBox("Ingrese Usuario", "TIPS PROMOCIONALES", defautvalue, 6700, 2800)
If clave1 <> "" Then
Call ProgressBar

Select Case clave1
Case "TIPS"
ActiveSheet.Shapes.Range(Array("CommandButton2")).Visible = True
Sheets("PRESUPUESTO").Visible = True
Sheets("REGISTROS").Visible = True
Case "DAP"
Sheets("PRESUPUESTO").Visible = True
Sheets("PRESUPUESTO").Activate
End Select
End If
End Sub

Mi dudas son 2, con el código resaltado en negro, el texto del inputbox lo "copia" a la ruta especificada, pero solo aparece la palabra FALSO y necesito que se copie lo que se escriba en el inputbox y aunque escribo otros usuarios no baja al siguiente renglón, ademas desde que agregue el texto en negro no ejecuta el proceso de la macro si coincide con los usuarios permitidos o que me recomiendan en este caso?

Y la otra duda es si no coinciden los usuarios que me mande un Msgbox "Usuario Incorrecto"

Gracias de antemano