Runtime error 13 Type mismatch

Hi All,

I was using the below code to extract data and pasting it in another sheet called Result

Now today I added 2 extra rows and I am getting the Type mismatch error at line "Set frng = Sheets("result").Range("A:A").Find(CDate(fdate))"

I have tried amending the i = 1137 because from thats where the 2 rows are being added and hence amended the Irow Step 14
But it still gives the same error

Can anybody please help to troubleshoot

Sub TrfrData()
Dim cell As Range, frng As Range
Dim i As Integer, lrow As Integer, nrow As Integer, x As Integer
Dim fdate As String
lrow = Sheets("2017 SOH").Range("B" & Sheets("2017 SOH").Rows.Count).End(xlUp).Row
For i = 22 To lrow Step 12
fdate = Format(Sheets("2017 SOH").Range("B" & i).Value, "dd-mm-yy")
Set frng = Sheets("result").Range("A:A").Find(CDate(fdate))
If frng Is Nothing Then
With Sheets("result")
nrow = .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0).Row
.Range("A" & nrow).Value = Sheets("2017 SOH").Range("B" & i).Value
For x = 5 To 13
.Cells(nrow, x - 3).Value = Sheets("2017 SOH").Cells(i - 1, x).Value
Next x
For x = 16 To 18
.Cells(nrow, x - 5).Value = Sheets("2017 SOH").Cells(i - 1, x).Value
Next x
End With
End If
Next i
End Sub