Mein Code bis jetzt:
Sub copy()
Sheets("Deutschland").Select
Range("A3:G22").Select
Selection.copy
Sheets("Zufallsdaten").Select
Range("A5").Select
ActiveSheet.Paste
Range("A31").Select
Sheets("Schweiz").Select
Range("A3:G22").Select
Selection.copy
Sheets("Zufallsdaten").Select
ActiveSheet.Paste
Sheets("Schweiz").Select
Sheets("Zufallsdaten").Select
Range("A1").Select
End Sub