Hier ein kleines Makro
Sub Makro1()
'
' Makro1 Makro
'
' Tastenkombination: Strg+l
'
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2"😉.Select
Range("B1"😉.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub