Transpose Array Across Columns

following is code for search in the sheet and give result in other sheet

Private Sub Searchbton_Click() 'Serach button click
'for search
Dim a(), r As Range, res, i As Long, ff As String, rng As Range
Dim title
title = Array("Sr.No", "File#", "Client File#", "Client", "State", "Borrower's Name", " Date Received", "Date & Time File Started", "Title Ordered on", "Type of Search Ordered", "Title Follow up Date", "Title Received on", "File Completed on", "Date & Time E-Mail Sent to Client", "Status", "File Canceled Date", "Remarks", "Done by")
res = Application.WorksheetFunction.Substitute(Me.TextBox1, "-", "")
If Len(res) = 0 Then..........

Problem is when we search for any data and if the recorded data exceeds 307 or more rows, the result will not show the data beyond 307 & more. it take to the Error : Run-time error '13' :Type mismatch error and cursor goto:

.Offset(1).Resize(UBound(a, 2), UBound(a, 1)).Value = Application.Transpose(a)"