Hier ist der Code also das Problem mit dem verrutschen habe ich nun gelöst. (Aber nur gepfuscht ich habe die ersten Spalten in Tabelle 2 bis "F" freigelassen und beginne dann erst mit meiner Tabelle)

Nun noch ein anderes Problem und zwar fügt er mir jetzt wenn ich den Button klicke keine neue Zeile ein und speichert die Daten immer nur in die oberste meiner Tabelle ergo beim Zweiten speichern gehen die alten Daten verloren.

Sub Daten22()
'
' Daten22 Makro
'
    
    Range("A5:F5").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("Tabelle2").Select
    Range("I3").Select
    Selection.Copy
    Sheets("Tabelle1").Select
    Range("F6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tabelle2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tabelle1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Tabelle2").Select
    Range("I5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tabelle1").Select
    Range("C6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Tabelle2").Select
    Range("I7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tabelle1").Select
    Range("D6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Tabelle2").Select
    Range("I9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tabelle1").Select
    Range("E6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Tabelle2").Select
    Range("I11").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tabelle1").Select
    Range("A6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B6").Select
    Application.CutCopyMode = False
    ActiveCell.Formula2R1C1 = "=QRCode(RC[-1])"
    Range("C6").Select
    Sheets("Tabelle2").Select
    Range("I3").Select
    Selection.ClearContents
    Range("I5").Select
    Selection.ClearContents
    Range("I7").Select
    Selection.ClearContents
    Range("I9").Select
    Selection.ClearContents
    Range("I11").Select
    Selection.ClearContents
    Sheets("Tabelle1").Select
End Sub