Esta é a solução que encontrei:
Sub Makro1()
Dim i As Long
Dim ii As Long
Dim i3 As Long
Dim i4 As Long
Dim LastRowSht2 As Long
Dim LastRowSht3 As Long
Dim wb As Workbook
Dim sht1 As Worksheet
Dim sht2 As Worksheet
Set wb = ThisWorkbook
Set sht1 = wb.Sheets("Tabelle1")
Set sht2 = wb.Sheets("Tabelle2")
Set sht3 = wb.Sheets("Tabelle3")
'Find the last row (in column A) with data.
LastRowSht2 = sht2.Range("A:A").Find("*", searchdirection:=xlPrevious).Row
LastRowSht3 = sht3.Range("A:A").Find("*", searchdirection:=xlPrevious).Row
ii = 2
i4 = 2
For i = 2 To LastRowSht2
For i3 = 2 To LastRowSht3
sht1.Range("A" & ii) = sht2.Range("A" & i).Value
sht1.Range("B" & ii) = sht3.Range("A" & i4).Value
ii = ii + 1
i4 = i4 + 1
Next i3
i4 = 2
Next i
End Sub