Option Explicit

Sub MakeCopy()
Dim i As Integer
Application.CopyObjectsWithCells = False
    
For i = 1 To 2
    Sheets("Sample Sheet").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Sample Sheet" & Sheets.Count + 1
Next i
Application.CopyObjectsWithCells = True 'reset
End Sub