I figured it out in meantime. In case anyone needs it:

Dim ws1 As Worksheet
Set ws1 = ThisWorkbook.Worksheets("SheetX")
ws1.Copy ThisWorkbook.Sheets(Sheets.Count)