PROBLEMA CON Private Sub Worksheet_SelectionChange(ByVal Target As Range), no puedo agregar todos los rangos de celdas

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Si la celda elegida es A6:A205 se muestra el Formulario.
If Not Intersect(Target, Range("A6:A205")) Is Nothing Then
UserForm1.Show
'En todo caso no se muestra.
Else
End If
End Sub

Hasta acá el código funciona bien pero el problema que tengo que ingresar todo este código a continuación pero cuando lo ingreso me da error y tampoco entra porque es muy largo