makroda ilave satır

[kemalist]

Arkadaşlar makroda ilave etmem satır var yardımcı olurmusunuz? İlginiz için şimdiden teşekkür ederim:
Ekli dosya ektedir.

 

[YUSUF44]

Dosyanızda makro yok, hangi makroyu düzelteceğiz?

 

[kemalist]

Sub LENS()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual 'hızlandırmak için

Range("A8").Select
Selection.FormulaArray = "=COUNTIF(R8C9:R351C36,RC[1])"
Range("A8").Select
Selection.AutoFill Destination:=Range("A8:A351"), Type:=xlFillDefault
Range("A8:A351").Select
Range("E21").Select
ActiveWorkbook.Save

Sanırım burada olmalı

Range("G8:H351").Select
Selection.ClearContents
Range("A8:B351").Select
Selection.Copy
Range("G8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E15").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("E1").Select

With ActiveSheet
For sat = 8 To .Cells(Rows.Count, "G").End(3).Row
If .Cells(sat, "G") = "" Then .Range("G" & sat & ":H" & sat).ClearContents
Next
.Range("G8:H" & .Cells(Rows.Count, "G").End(3).Row).Sort Key1:=.[G8], Order1:=2
End With

Range("A8:A351").Select
Selection.ClearContents
Range("I1").Select
Application.Calculation = xlCalculationAutomatic 'hızlandırmak için
Application.ScreenUpdating = True


End Sub

 

[YUSUF44]

ActiveWorkbook.Save satırından önce

Application.DisplayAlerts = False

ve sonra

Application.DisplayAlerts = True

satırlarını ekleyip dener misiniz?

 

[kemalist]

Teşekkür ederim.