Sub Makro1()
Dim loLetzteQuelle As Long, loLetzteZiel As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
loLetzteQuelle = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range(.Cells(loLetzteQuelle, 1), .Cells(loLetzteQuelle, 26)).Copy
With Worksheets("Tabelle2")
loLetzteZiel = .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Row
.Cells(loLetzteZiel, 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True
loLetzteZiel = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range("$A$2:$A$" & loLetzteZiel).RemoveDuplicates Columns:=1, Header:=xlNo
End With
End With
Application.CutCopyMode = False
End Sub