پرسش کپی شیت

[mahdie-ard]

با سلام خدمت اساتید محترم
برای کپی گرفتن از شیت، از متن زیر استفاده می کنم .
امکانش هست بفرمایید اگر بخواهیم شیت های جدید به آخر اضافه بشه و شیت اصلی اول باشه راهی داره؟
Sub coppy()
Sheets("form").Copy after:=Sheets("form")
Sheets("form").Select Range("A1").Select
End Sub

[iranweld]

با سلام

از کد ذیل استفاده کنید

Sheets.Add after:=Sheets(Sheets.Count)