Foro de Ayuda Excel

¿Podría alguien decirme en qué cosas me estoy equivocando en lo marcado en rojo, por favor?

Private Sub CommandButton4_Click()
Dim strceldafinal$, strfila$
' Verificamos que el textbox6 sea una fecha
If Not IsDate(TextBox6) Then
UserForm15.Show
TextBox6 = ""
TextBox7 = ""
TextBox6.SetFocus
Exit Sub
End If
' Verificamos que en textbox6 este la fecha actual
If CDate(TextBox6) <> Date Then
UserForm15.Show
TextBox6 = ""
TextBox7 = ""
TextBox6.SetFocus
Exit Sub
End If
' Verificamos que textbox 7 no esté vacío
If TextBox7 = "" Then
UserForm12.Show
TextBox7.SetFocus
Exit Sub
End If
' Verificar que el textbox7 sea numerico
If Not IsNumeric(TextBox7) Then
UserForm13.Show
TextBox7 = ""
TextBox7.SetFocus
Exit Sub
End If
' Verificamos que textbox 7 sea mayor a 15
If Val(TextBox7) < 15 Then
UserForm16.Show
TextBox7 = ""
TextBox7.SetFocus
Exit Sub
End If
' Primera celda vacia de H
strceldafinal$ = [H65536].End(xlUp).Offset(1, 0).Address
' Numero de fila de la primera celda vacía
strfila$ = Range(strceldafinal$).Row
' Fecha a la primera celda vacia de H
Range(strceldafinal$) = CDate(TextBox6)
' Valor a la primera celda vacia de I
Range(strceldafinal$).Offset(0, 1) = Val(TextBox7)
' Formulas en las columnas siguientes
Range("J" & strfila$).FormulaLocal = "=I" & strfila$ & "* 1.5 / 100"
Range("K" & strfila$).FormulaLocal = "=I" & strfila$ & "* 0.985"
Range("L" & strfila$).FormulaLocal = "=Index!D2"
Range("M" & strfila$).FormulaLocal = "=L" & strfila$ & " - I" & strfila$
Range("N" & strfila$).FormulaLocal = "=K" & strfila$ & "* 41 / 100"
Range("O" & strfila$).FormulaLocal = "=K" & strfila$ & "* 0.59"
' Botón de opciones
strfila$ = Application.WorksheetFunction.CountA(Range("H:H")) + 1
Range(strceldafinal$).Offset(0, 8) = TextName.Text
If OpcionNo Then Range(strceldafinal$, 8) = " No"
If OpcionSí Then Range(strceldafinal$, 8) = " Sí"
TextName.Text = ""
OpNo = True
TextName.SetFocus
' Sonido WAV
SONAR2
' Colocamos la fecha actual, con un formato, en el textbox1
TextBox6 = Format(Date, "d mmm yy")
TextBox7 = ""
TextBox7.SetFocus
End Sub