Otomatik Hesaplama Problemi

[speech_free]

Merhabalar,

Sayın Murat Osma'nın vermiş olduğu kod işime çok yarayacak gibi fakat ufak bir problem var. Konu kilitli olduğu için tekrar açmak zorunda kaldım. Bulduğum kod aşağıdaki gibidir. Veri Girişi sayfasından başka bir de Stok Hareketleri sayfam bulunuyor. Ve Veri Girişi sayfasından Stok Hareketleri sayfasına veri kopyalama işlemi yapan bir makrom var. Aşağıdaki kodu BuÇalışmaKitabı sayfasına eklediğimde mevcut makromdaki sarı ile işaretlediğim satırda problem oluyor. Bunu nasıl aşabilirim?

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = "Veri Girişi" Then
        Application.Calculation = xlCalculationAutomatic
            Else
        Application.Calculation = xlCalculationManual
    End If
End Sub

Mevcut makro kodu:

Sub deneme()
    Dim s1 As Worksheet, s2 As Worksheet
    Dim bul As Range, satir As Long
    Set s1 = Sheets("Veri Girişi")
    Set s2 = Sheets("Stok Hareketleri")
    Application.ScreenUpdating = False
    For Each bul In s1.Range("P2:P" & s1.Range("P65536").End(3).Row)
    If bul.Value <> "" Then
    satir = satir + 1
    bul.EntireRow.Copy
    s2.Select
    sat = Sheets("Stok Hareketleri").Cells(65536, "A").End(xlUp).Row + 1
    [COLOR="Yellow"]Sheets("Stok Hareketleri").Range("A" & sat).PasteSpecial xlPasteValues[/COLOR]
    End If
    Next bul
    [a1].Select
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Herkese teşekkür ederim yardımlarınız için.