Untitled

Sub CopySheetWithoutData()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") 'nazwa arkusza do skopiowania
    ws.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    ws.Cells.Clear
End Sub