Search and populate value in listbox - excel

Question

enter image description hereI am trying to write codes which will enable me to search for value and populate result/s in a list box. My serial number is on Column AB. My search Columns are from A to D.
As soon as I click on search, the search doesn't not match. Here is my code.
Application.ScreenUpdating = False
Dim shTOF As Worksheet 'TOF sheet
Dim shSearchData As Worksheet
Dim iColumn As Integer 'To hold the seleceted column number in TOF
Dim iTOFRow As Long 'To store the last non-blank row number available in TOF sheet
Dim iSearchRow As Long 'To hold the last non-black row number available in Searchdata sheet
Dim sColumn As String 'To store the column selection
Dim sValue As String 'To hold the search text value
Set shTOF = ThisWorkbook.Sheets("T.O.F")
Set shSearchData = ThisWorkbook.Sheets("Searchdata")
iTOFRow = ThisWorkbook.Sheets("T.O.F").Range("ab" & Application.Rows.Count).End(xlUp).Row
sColumn = UserForm10.TOFSEARCHComboBox1.Value
sValue = UserForm10.TOFSEARCH.Value
iColumn = Application.WorksheetFunction.Match(sColumn, shTOF.Range("A8:D8"), 0)
'Remove Filter from Database worksheet
If shTOF.FilterMode = True Then
shTOF.AutoFilterMode = False
End If
'Apply filter on Database Worksheet
If UserForm10.TOFSEARCHComboBox1.Value = "No." Then
shTOF.Range("A1:D" & iTOFRow).AutoFilter Field:=iColumn, Criteria1:=sValue
Else
shTOF.Range("A8:D" & iTOFRow).AutoFilter Field:=iColumn, Criteria1:="*" & sValue & "*"
End If
If Application.WorksheetFunction.Subtotal(3, shTOF.Range("C:C")) >= 2 Then
'code to remove the previouse data from searchdata worksheet
shSearchData.Cells.Clear
shTOF.AutoFilter.Range.Copy shSearchData.Range("A8")
Application.CutCopyMode = False
iSearchRow = shSearchData.Range("A" & Application.Rows.Count).End(xlUp).Row 'change later on
UserForm10.ListBox1.ColumnCount = 29
UserForm10.ListBox1.ColumnWidths = "30,50,40,40,35,43,43,28,25,25,25,25,37,50,45,55,70,60,47,35,35,40,40,40,40,50,60,160,50"
If iSearchRow > 1 Then
UserForm10.ListBox1.RowSource = "searchData!A8:D" & iSearchRow
MsgBox " Records Found."
End If
Else
MsgBox " No Record Found."
End If
shTOF.AutoFilterMode = False
Application.ScreenUpdating = True