Aslında ozan hocanının kodlarını deneyemedim lakin düzgün çalışıyor gibi.
İnput boş çıkmaması için ya orayı sileceksiniz yada başına tek tırnak koyup çalıştıracaksınız kodu.Dosyanın son halini yüklerseniz diğer şartlar için yardımcı olunmaya çalışılır.

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