Yeni sekmede form oluşturmak

[emyoluyuz]

arkadaşlar sayfa 1 sekmesinde bir form oluşturdum en altında da kaydet butonu var. İstediğim kaydet butonuna bastığında yeni sekme açsın ve o sekmeye o formu komple kopyalayıp yapıştırsın. bunu yaptım makro kaydederek ama kaydete bastığımda excel donuyor 10 dakika sonra istediğimi yapmuış halde tekrar çalışır vaziyete geçiyor. formülümde bir hatamı varki bu kadar kasıyor?

Sub kaydet()
'
' kaydet Makro
'

'
Cells.Select
Range("A13").Activate
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Cells.Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("B7:K7").Select
Sheets("Fatura").Select
ActiveWindow.SmallScroll Down:=-21
Range("L1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("A2:K2").Select
End Sub

 

[hamitcan]

Bence bir dosya ekleyin ve ne yapmak istediğinizi dosya içinde anlatın.

 

[emyoluyuz]

dosyayı ekliyordum ama 3 mb civarı olduğu için ekleyemedim

 

[emyoluyuz]

tamam halletim bu konuyu nasıl kapatırım

 

[emyoluyuz]

Sub Kaydet()
'
' Kaydet Makro
'

'
Columns("A:Q").Select
Range("Q27").Activate
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Columns("A:Q").Select
Range("Q1").Activate
ActiveSheet.Buttons.Add(495.75, 369, 105, 19.5).Select
ActiveSheet.Paste
Range("B11:K11").Select
ActiveSheet.Shapes("Button 1").Select
Application.CutCopyMode = False
Selection.Delete
Sheets("Fatura").Select
Range("B13:K13").Select
ActiveWindow.SmallScroll Down:=-15
Range("A1").Select
End Sub

bu şekilde yapmam yeterli oldu.