bir de doğru giriş de yapsak "Input Boş" hatası çıkıyor  

Alttaki gibi exit subları ekleyin.

Dim GVeri As String
    GVeri = InputBox("İlk ve Son KAyıt", "Kayit Gir", "")
    If StrPtr(Gveri) = 0 Then
        MsgBox ("İptal")
Exit sub
    ElseIf result = vbNullString Then
        MsgBox ("İnput boş")
Exit sub
    Else
        
  '  GIlkKayit =...... ve sonrası buraya. 


    End If

İnputbox yerine form açtırıp textbox kullansanız olmazmı taktik olarak.o şekilde daha kolay olur değilse önceki mesajlarımdan birinde yazdıpım gibi array olayı kaçınılmaz gibi görüküyor.

sorun değil. hata düzelsin her türlü olur.

Ozan hocanın koduna ilave ettiğim exit sublar işe yaradımı

o işe yarıyor şablon word açılmıyor ama formatı yani 1-2, 1-3 gibi doğru da yazsak input hatası veriyor. senin array leri de denedim. o da aynı şekilde oldu. doğruyu da kabul etmiyor her ikisi de.