Private Sub Rechnungspositionen_Click()
Range("Tabelle1").Copy
With Worksheets("Statistik")
.Range("A" & .Cells(.Cells.Rows.Count, "A").End(xlUp).Row + 1).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
Range("H12").Copy
With Worksheets("Statistik")
.Range("I" & .Cells(.Cells.Rows.Count, "I").End(xlUp).Row + 1).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
Range("H13").Copy
With Worksheets("Statistik")
.Range("J" & .Cells(.Cells.Rows.Count, "J").End(xlUp).Row + 1).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
End Sub