Add worksheets in excel

[Chey]

I would like to copy an existing worksheet and paste it. Using the default
naming of example Earned Income Method 1 and when copied Earned Income Method
1 (2). When this is pasted I would like a row to be inserted into worksheet
Family Totals and cell H38 to carry over into the family totals into cell B5.
Could someone please help me?
This is what I was using before

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Worksheets("Family Totals").Rows(4).Insert
Worksheets("Family Totals").Cells(4, 1).Value = Sh.Name
End Sub

however instead of new sheet I want when pasted.

Thanks
Cheyenne