I am having trouble trying to add a Chr(10) condition to the end of a submit command on my Userform. I am trying to Chr(10) 2 rows with 14 columns if the serial number in TextBox1 matches a serial number in column 6 that was previously submitted by the userform.

Here is the code I have so far:

Dim CellRange As Range
Dim BooleanMatch As Boolean
Dim SerialNumber

Cusip = TextBoxSerialNumber
BooleanMatch = WorksheetFunction.CountIf(Range("E3:E10"), SerialNumber) > 0

If BooleanMatch Then Range("A2").FormulaR1C1 = TextBoxSerialNumber.Text & Chr(10) & Application.WorksheetFunction.Index(Range("Notes!E3:E10"), Application.WorksheetFunction.Match(Range(TextBoxSerialNumber.Text), Range("Notes!E3:E10"), 0), 0)

Thanks