Копировать, Вставить строки и Вставить данные с двух листов на третий лист

Question

У меня есть данные на двух листах: на одном листе указаны данные клиента, а на другом - данные материала. На обоих листах уникальная колонка в Base Cust. В листе клиента каждая базовая кора имеет 1 или более разных клиентов, и лист материала имеет то же самое, что и каждая базовая кора из разных материалов. Я хочу объединить данные обоих листов в новый лист.

Например -

Лист1 содержит следующие данные

Base cust   customer

00301        112501
00301        112502
00302        112503
00302        112504

Лист 2 содержит следующие данные

Base Cust    Material

00301        M12113501
00301        M12113502
00302        M12113501
00302        M12113502

В новом листе данные должны выглядеть следующим образом

Base Cust     Cust          Material

00301        112501         M12113501
00301        112501         M12113502
00301        112502         M12113501
00301        112502         M12113502
00302        112503         M12113501
00302        112503         M12113502
00302        112504         M12113501
00302        112504         M12113502

Мне нужна ваша помощь, если вы можете предоставить мне коды VBA для подготовки такого рода вышеуказанных данных.

Sub Macro() 

    Dim lastrowone, lastrowtwo As Long 
    lastrowone = Sheets("1").Cells(Rows.Count, 1).End(xlUp).Row 
    lastrowtwo = Sheets("2").Cells(Rows.Count, 1).End(xlUp).Row 
    For I = 2 To lastrowone 
        For J = 2 To lastrowtwo 
            If Sheets("1").Cells(I, 1).Value = Sheets("2").Cells(J, 1).Value Then 
                Sheets("1").Cells(I, 1).EntireRow.Copy 
                Sheets("3").Cells(I, 1).Offset(1).Insert Shift:=xlDown 
             End If 
        Next J 
    Next I 

End Sub