How to identify the error on the following VBA?
error -
Subscript Out of Range
Bug
Set Rng = dataVoucherNo.Find(what:=searchValue, _
LookIn:=x1Values, _
LookAt:=x1Whole, _
SearchOrder:=x1ByRows, _
MatchCase:=False)
Sub Select_Data()
'OriginalClubAccount
'Search the data repository worksheet and return the found record into sourceSheet
Dim sourceSheet As Worksheet
Dim dataSheet As Worksheet
Dim searchValue As Variant
Dim dataVoucherNo As Range
Dim recordRow As Integer
'Make some sheet variables so we can use those instead of hard-coding
Set sourceSheet = Sheets("Form")
Set dataSheet = Sheets("TB")
'Column that contains the value for which we will search.
Set dataVoucherNo = dataSheet.Range("E7:E65000")
'Value to search for.
searchValue = InputBox("Input an Voucher No ", "Record Search")
'Check if the user input a value and hit the OK button.
If searchValue <> vbNullString Then
'Value input, so search for it.
'Clear Data
sourceSheet.Range("F5").Value = ""
sourceSheet.Range("F7").Value = ""
sourceSheet.Range("F9").Value = ""
sourceSheet.Range("F11").Value = ""
sourceSheet.Range("F13").Value = ""
sourceSheet.Range("F15").Value = ""
sourceSheet.Range("F17").Value = ""
sourceSheet.Range("F19").Value = ""
'Search
'More specific info:https://docs.microsoft.com/en-us/office/vba/api/excel.range.find
Set Rng = dataVoucherNo.Find(what:=searchValue, _
LookIn:=x1Values, _
LookAt:=x1Whole, _
SearchOrder:=x1ByRows, _
MatchCase:=False)
'Check if a record was found.
If Not Rng Is Nothing Then
'Record Found!
'Get the row of the record.
recordRow = Rng.Row
recordAddress = Rng.Address
'Put the records information back into the form.
sourceSheet.Range("F5").Value = dataSheet.Cells(recordRow, 1).Value
sourceSheet.Range("F7").Value = dataSheet.Cells(recordRow, 2).Value
sourceSheet.Range("F9").Value = dataSheet.Cells(recordRow, 3).Value
sourceSheet.Range("F11").Value = dataSheet.Cells(recordRow, 4).Value
sourceSheet.Range("F13").Value = dataSheet.Cells(recordRow, 5).Value
sourceSheet.Range("F15").Value = dataSheet.Cells(recordRow, 6).Value
sourceSheet.Range("F17").Value = dataSheet.Cells(recordRow, 7).Value
sourceSheet.Range("F19").Value = dataSheet.Cells(recordRow, 8).Value
Else
'Nothing Found, tell the user.
MsgBox "Record Not Found"
End If
End If
End Sub