Yazdırmadan ve kaydetmeden önce sorgulama kodu

[ejderemrah]

Arkadaşlar herkese kolay gelsin benim bana göre zor size göre kolay olabilecek bir sorunum var yardımlarınızı bekliyorum.
Bu siteden Korhan Ayhan adlı arkadaşın yazdığı bir kodu kullanarak yazdırmadan ya da kaydetmeden önce boş hücreleri sorgulamasını eğer boş ise işlem yapmamasını istiyorum kod çalışıyor ama bütün sayfalarda çalışıyor benim istediğim "HARCAMALAR" sayfasında çalışması

Option Explicit
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim Sayfa As Object
    Dim Say As Long, X As Long, Mesaj As String
    Say = 0
    For Each Sayfa In Worksheets
        With Sayfa
        For X = 7 To .Cells(175, 3).Row
            If .Cells(X, 3) <> "" Then
                If .Cells(X, "E") = "" Then Mesaj = Mesaj & Chr(10) & Sayfa.Name & "   " & Cells(X, "E").Address(0, 0)
                If .Cells(X, "G") = "" Then Mesaj = Mesaj & Chr(10) & Sayfa.Name & "   " & Cells(X, "G").Address(0, 0)
                If .Cells(X, "H") = "" Then Mesaj = Mesaj & Chr(10) & Sayfa.Name & "   " & Cells(X, "H").Address(0, 0)
                If Mesaj <> "" Then Say = Say + 1
            End If
        Next
        End With
    Next
 
    If Say > 0 Then
    Cancel = True
    MsgBox "Sayfalarda boş hücreler bulundu kayıt işlemi iptal edilmiştir." & Chr(10) & _
    "Lütfen kontrol ediniz !" & Chr(10) & Mesaj, vbCritical, "Dikkat !"
    Else
    Cancel = False
    End If
End Sub

1. Bu kodun sadece 1. sayfada(HARCAMALAR) Da çalışmasını istiyorum.
2. bu koda bir döngü daha eklemek istiyorum eğer C7 hücresi "OTOPARK" ise sadece H sütunu sorgulansın
3. bu kodu yazdır butonuna eklemek istiyorum yadımlarınızı bekliyorum gerçekten çok önemli.
4.biraz açıklayabilirseniz döngüler nerelere ekleniyor nasıl değiştiriliyor ?

değiştirilecek bu kodları nereye kopyalamak gerek ?