How to copy and paste matched rows from one sheet to below exact matched rows in another sheet with name?

[Ranv7]

Hi,

Below is the data in sheet1 and sheet2. I have to copy the row matching E & G value in sheet2 and insert the row at the end of the sheet2 with name.
Please help me updating the above program. Thanks

Sheet1

E	G	Name
250	2,5	2314123
400	2,5	2181383
40	6	1540693
65	6	2243424
65	6	1540844
80	6	2634244
100	6	1532191
200	6	1540498
200	6	2369931
300	6	1894136
300	6	2251092
350	6	1925322
400	6	1896446
500	6	1532062
600	6	1859595
600	6	2103167
10	10	2164531
20	10	1532196
25	10	1872991
25	10	1856090
25	10	1540499
25	10	1532197
32	10	2187521
32	10	2230111
32	10	1926699
40	10	2172813
40	10	2172754
40	10	1124757
40	10	2186717
40	10	1540666
40	10	2186720
50	10	1868335
50	10	2502363

Sheet2

A	B	C	D	E	F	G	Name
160	130	14	4	65	14	2,5	-
190	150	18	4	80	16	2,5	-
210	170	18	4	100	16	2,5	-
240	200	18	8	125	18	2,5	-
265	225	18	8	150	18	2,5	-
320	280	18	8	200	20	2,5	-
375	335	18	12	250	22	2,5	-
440	395	22	12	300	22	2,5	-
490	445	22	12	350	22	2,5	-
540	495	22	16	400	22	2,5	-
595	550	22	16	450	24	2,5	-
645	600	22	20	500	24	2,5	-
755	705	26	20	600	30	2,5	-
860	810	26	24	700	40	2,5	-
975	920	30	24	800	44	2,5	-
1075	1020	30	24	900	48	2,5	-
1175	1120	30	28	1000	52	2,5	-
1375	1320	30	32	1200	50	2,5	-
75	50	11	4	10	12	6	-
80	55	11	4	15	12	6	-
90	65	11	4	20	14	6	-
100	75	11	4	25	14	6	-
120	90	14	4	32	14	6	-
130	100	14	4	40	14	6	-
140	110	14	4	50	14	6	-
160	130	14	4	65	14	6	-
190	150	18	4	80	16	6	-
210	170	18	4	100	16	6	-
240	200	18	8	125	18	6	-
265	225	18	8	150	18	6	-
320	280	18	8	200	20	6	-
375	335	18	12	250	22	6	-

 

[Ranv7]

The below one helps me if it is only one column to match.

Sub copy_paste_matched_rows()
Dim sh1 As Worksheet, sh2 As Worksheet
Dim u1 As Double

Application.ScreenUpdating = False

Set sh1 = Sheets("sheet1")
Set sh2 = Sheets("sheet2")

u1 = sh1.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To u1
Set b = sh2.Columns("A").Find(sh1.Cells(i, "A"), lookat:=xlWhole, LookIn:=xlValues)
If Not b Is Nothing Then
sh1.Rows(1).Copy
sh2.Rows(b.Row + 1).Insert Shift:=xlDown
sh1.Rows(i).Copy
sh2.Rows(b.Row + 2).Insert Shift:=xlDown
End If
Next

Application.ScreenUpdating = True

MsgBox "End"
End Sub