|  
                                             
	Ganz trivial (die Zellbezüge maschinell umgesetzt) und ungetestet 
Sub TestCopy()
Dim X As Long
With Sheets("Tabelle2")
   X = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
End With
   
If X < 4 Then X = 3
   
Sheets("Tabelle1").Range("AV9").Copy Sheets("Tabelle2").Cells(X, 2)
Sheets("Tabelle1").Range("AV10").Copy Sheets("Tabelle2").Cells(X, 3)
Sheets("Tabelle1").Range("AV11").Copy Sheets("Tabelle2").Cells(X, 4)
Sheets("Tabelle1").Range("AW11").Copy Sheets("Tabelle2").Cells(X, 5)
Sheets("Tabelle1").Range("AX11").Copy Sheets("Tabelle2").Cells(X, 6)
Sheets("Tabelle1").Range("AV12").Copy Sheets("Tabelle2").Cells(X, 7)
Sheets("Tabelle1").Range("AW12").Copy Sheets("Tabelle2").Cells(X, 8)
Sheets("Tabelle1").Range("AX12").Copy Sheets("Tabelle2").Cells(X, 9)
Sheets("Tabelle1").Range("AV13").Copy Sheets("Tabelle2").Cells(X, 10)
Sheets("Tabelle1").Range("AW13").Copy Sheets("Tabelle2").Cells(X, 11)
Sheets("Tabelle1").Range("AX13").Copy Sheets("Tabelle2").Cells(X, 12)
Sheets("Tabelle1").Range("AV14").Copy Sheets("Tabelle2").Cells(X, 13)
Sheets("Tabelle1").Range("AW14").Copy Sheets("Tabelle2").Cells(X, 14)
Sheets("Tabelle1").Range("AX14").Copy Sheets("Tabelle2").Cells(X, 15)
Sheets("Tabelle1").Range("AV15").Copy Sheets("Tabelle2").Cells(X, 16)
Sheets("Tabelle1").Range("AX15").Copy Sheets("Tabelle2").Cells(X, 17)
Sheets("Tabelle1").Range("AV16").Copy Sheets("Tabelle2").Cells(X, 18)
Sheets("Tabelle1").Range("AV17").Copy Sheets("Tabelle2").Cells(X, 19)
Sheets("Tabelle1").Range("AV18").Copy Sheets("Tabelle2").Cells(X, 20)
Sheets("Tabelle1").Range("AV19").Copy Sheets("Tabelle2").Cells(X, 21)
Sheets("Tabelle1").Range("AV20").Copy Sheets("Tabelle2").Cells(X, 6)
Sheets("Tabelle1").Range("AV21").Copy Sheets("Tabelle2").Cells(X, 23)
Sheets("Tabelle1").Range("AV22").Copy Sheets("Tabelle2").Cells(X, 24)
Sheets("Tabelle1").Range("AV23").Copy Sheets("Tabelle2").Cells(X, 25)
Sheets("Tabelle1").Range("AX23").Copy Sheets("Tabelle2").Cells(X, 26)
Sheets("Tabelle1").Range("AV24").Copy Sheets("Tabelle2").Cells(X, 27)
Sheets("Tabelle1").Range("AV25").Copy Sheets("Tabelle2").Cells(X, 28)
Sheets("Tabelle1").Range("AV26").Copy Sheets("Tabelle2").Cells(X, 29)
Sheets("Tabelle1").Range("AV27").Copy Sheets("Tabelle2").Cells(X, 30)
Sheets("Tabelle1").Range("AV28").Copy Sheets("Tabelle2").Cells(X, 31)
Sheets("Tabelle1").Range("AV29").Copy Sheets("Tabelle2").Cells(X, 32)
Sheets("Tabelle1").Range("AV30").Copy Sheets("Tabelle2").Cells(X, 33)
Sheets("Tabelle1").Range("AV31").Copy Sheets("Tabelle2").Cells(X, 34)
Sheets("Tabelle1").Range("AV32").Copy Sheets("Tabelle2").Cells(X, 35)
Sheets("Tabelle1").Range("AV33").Copy Sheets("Tabelle2").Cells(X, 36)
Sheets("Tabelle1").Range("AV34").Copy Sheets("Tabelle2").Cells(X, 37)
Sheets("Tabelle1").Range("AV35").Copy Sheets("Tabelle2").Cells(X, 38)
Sheets("Tabelle1").Range("AV36").Copy Sheets("Tabelle2").Cells(X, 39)
   
End Sub
	  
     |