Haklısınız Hocam aşağıdaki şekilde olması gerekir.

For Z = 2 To Sheets.Count
            If LCase(Sheets(Z).Name) <> "sayfa1" And LCase(Sheets(Z).Name) <> "liste" Then
            .Cells(.Range("A" & Rows.Count).End(3).Row + 1, 1) = Sheets(Z).[a1].Value
            .Cells(.Range("A" & Rows.Count).End(3).Row, 2) = Sheets(Z).[H5].Value
            .Cells(.Range("A" & Rows.Count).End(3).Row, 3) = Sheets(Z).[J5].Value
            .Cells(.Range("A" & Rows.Count).End(3).Row, 4) = Sheets(Z).[L4].Value
            End If
        Next

For Z = 2 To Sheets.Count burda 1 den başlayıp sayfa adı için şablon sayfasıda koşula eklenmesi gerekmiyor mu?

Hocam bilmiyorum eklenmesi gerekiyorsa bir zahmet ekleyin. Sadece benim istediğim ŞABLON, liste ve Sayfa1 hiç bir listede görünmesin ve bu sayfalara kayıt etme, silme ve değiştirme gibi işlemler yapılmasın. Onları da zaten siz ayarlamıştınız. Mesaj 14 deki anlattığınız yapılması gereken bir işlem ise yapın. Saygılar.

For Z = 1 To Sheets.Count



If LCase(Sheets(Z).Name) <> "sayfa1" And LCase(Sheets(Z).Name) <> "liste" And LCase(Sheets(Z).Name) <> "şablon" Then

Benzer kodlar varsa böyle yapın.

 
  Hocam yukarıdaki kodu aşağıdaki kod ile değiştirmem mi gerekiyor,
Yoksa aşağıdaki kodu yukarıdaki kodun altına mi eklemem gerekiyor.

(14/05/2020, 18:25)m_demir yazdı: Yoksa aşağıdaki kodu yukarıdaki kodun altına mi eklemem gerekiyor

Evet.