en son size gönderdiğim programda nasıl bir hata oldu cevap vermediniz.Hatalı haliyle gönderin dedim.Buna da cevap vermediniz.

Sizin #30 da gönderdiğiniz programda inceledim.Bahsettiğiniz hatalar

If ilkt = xa Or sont = xa Then

    i.Cells(son, 1) = WorksheetFunction.Max(i.Range("A2:A" & son)) + 1
  i.Cells(son, 2) = n.Cells(mv, 2)
  i.Cells(son, 3) = n.Cells(mv, 3)
  i.Cells(son, 4) = n.Cells(mv, 4)
  i.Cells(son, 5) = n.Cells(mv, 5)
 ' i.Cells(son, 6) = n.Cells(mv, 6)

bölümünü şeklinde düzeltirseniz mazeret bölümünü almaz.

ikinci olarak ta durumu bölümünde oluşan 3 .Aslında program çalıştığında durumu bölümünü doğru yazıyor.Fakat komut bölümünde 

15:

vv = vv + 1
i.Cells(son, 5) = vv

satırlarına geldiğinde durumu kısmına önce 1 sonra 2 ve son olarak da 3 yazıyor.

Size gönderdiğim en son programı hatalı çalışan haliyle gönderirseniz sevinirim.Kontrol ettim bir hata ile karşılaşmadım.Neresinde hata var...