Copy entries from a new sheet and paste them to the respective row in Master sheet

[ExcelNewbiee]

I got a "new" sheet that will be generated few times a day, and it will be deleted after this sub.
I want to copy data from "new" sheet and paste it into existing "records" sheet

1. paste data into its respective row (different fruits)
2. add new fruit row if fruit doesn't exist in "records" sheet
3. sort from (a-z), the entire used range in "records" sheet by first column of fruit name
4. fill zero for found blank cell in used range
5. add a total row to the last used range row + 1 (so it will be different whenever this sheet run for new stall order)

I have no idea what went wrong in the code as the banana, blueberry should be added as new fruits in "Records", but now I get an extra Strawberry in the list, think it should be smtg about the else condition, but I don't know how to fix it.
For now I only get to the 2nd part of my requirements, as I am not too familiar with used range yet, I'm still having a little struggle in coding it.

my current "Records" sheet:

new new Fruits Amount Amount Apple 3 3 Blackberry 4 Dragonfruit 6 Jackfruit 9 Kiwi 2 Lemon 7 Lychee 10 Melon 17 Orange 20 Peach 8 Pear 1 Pineapple 3 Strawberry 5 Strawberry 63 <tbody> </tbody>

<tbody>
</tbody>

Below is the new sheet:

Fruits Amount Apple 3 Banana 10 Blackberry 5 Blueberry 7 Jackfruit 55 Kiwi 2 Lemon 23 Lychee 6 Melon 17 Orange 33 Peach 8 Pear 1 Pineapple 18 Strawberry 63 <tbody> </tbody>

<tbody>
</tbody>

Desired Output

new new Fruits Amount Amount Apple 3 3 Banana 0 10 Blackberry 4 5 Blueberry 0 7 Dragonfruit 6 0 Jackfruit 9 55 Kiwi 2 2 Lemon 7 23 Lychee 10 6 Melon 17 17 Orange 20 33 Peach 8 8 Pear 1 1 Pineapple 3 18 Strawberry 5 63 Total 95 251 <tbody> </tbody>

<tbody>
</tbody>

In this case, you may take note on the Banana, Blueberry and Dragonfruit

my code so far

Sub fruits()
'find first blank column
blankCol = ThisWorkbook.Worksheets("Records").Cells(1, Columns.Count).End(xlToLeft).Column
If blankCol > 1 Then
blankCol = blankCol + 1
End If


'paste the list into existing "Records" sheet
Set rsht = ThisWorkbook.Worksheets("Records")
Set r = rsht.Range("A1") 'record sheet


'set up header for new entry in "Records"
r.Offset(0, blankCol - 1).Value = "new" 'new sheet name from different stalls
r.Offset(1, blankCol - 1).Value = "Amount"


'new sheet with new data
Set temp = ThisWorkbook.Worksheets("new")
Set n = temp.Range("A1") 'temp : new


Dim irow As Long
Dim jrow As Long
irow = temp.Cells(Rows.Count, "A").End(xlUp).Row 'last row in new temp sheet
jrow = rsht.Cells(Rows.Count, "A").End(xlUp).Row 'last row in record sheet


Dim nextrow As Long
nextrow = rsht.Cells(Rows.Count, "A").End(xlUp).Row + 1 'find next empty row in "Records"


    j = 2 '"Records" sheet


    For i = 1 To irow 'refer new


        If n.Offset(i, 0).Value = r.Offset(j, 0).Value Then 'if name matched then


            r.Offset(j, blankCol - 1).Value = n.Offset(i, 1).Value 'copy respective value


        Else 'if name doesn't match


            'paste new name into next available row
            r.Offset(nextrow - 1, 0).Value = n.Offset(i, 0).Value 'name
            r.Offset(nextrow - 1, blankCol - 1).Value = n.Offset(i, 1).Value 'value


        End If


    j = j + 1
    Next i

End Sub

Appreciate for any advice. Thank you. I'm stuck for quite sometime now.
Also apologize for not able to put the three tables horizontally for easier view. Idk how to do that