Sheets("Tabelle1").Select
    Sheets("Tabelle1").Move Before:=Workbooks("Mappe2").Sheets(1)

##</code><code>##

    my $sheet = $Book->Sheets("Tabelle1");
    my $target = $Book1->Sheets( $Book1->Sheets->Count );
    $sheet->Move( { After => $target });