Çözüldü VBA ile "Pasif" olan satırları başka sayfaya taşıma

İyi günler herkese, forumdaki makro üstadlarından bir konuda yardım rica ediyorum.Ekteki dosyamda bir müşteri listem var. Durum sütununda "Aktif" ve "Pasif" şeklinde ibareler yer alıyor. Benim yapmak istediğim; bir buton yardımıyla veya makro çalıştığında, Durumu "Pasif" olan satırların tamamını ana listeden silip "Pasif_Musteriler" isimli diğer sayfaya alt alta aktarmak.Döngü kurarken satır silindiği için index numaraları karışıyor ve bazı satırları atlıyor. Bu silme ve taşıma işlemini hatasız yapacak makro kodunu paylaşabilirseniz çok mutlu olurum.