Tabellenblatt mit US-Datum erzeugen

Sub Test2()
Dim wsAct As Worksheet
'Objectvariable zuweisen
Set wsAct = ActiveSheet
'Tabelle kopieren und hinter der letzten Tabelle einfügen
wsAct.Copy Before:=Sheets(2)
'der neuen Tabelle den Name geben
ActiveSheet.Name = Cells(1, 6).Value
' Range("A2:C30").Select
'    Application.CutCopyMode = False
'    Selection.Copy
'    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
'        :=False, Transpose:=False
'    Range("F21").Select
End Sub