Copy and paste this macro into the worksheet code module. Do the following: right click the tab for your "Rechner" sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Make a selection in B2:B8. The macro assumes that there will always be some data in the green merged cells that currently contain the word "Results".
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:B8")) Is Nothing Then Exit Sub
Dim LastRow As Long
LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Sheets("Tabelle3").Cells(Target.Row - 1, 1).Resize(1, 8).Copy
Cells(LastRow - 2, 1).Resize(Target.Value, 8).Insert
End Sub
Bookmarks