Yazılan Kod da hata alıyorum. Yardım

[emregnlts]

Private Sub CommandButton3_Click()
If txt_bul.Text = "" Then Exit Sub
Dim var As Boolean
var = False
ListBox1.Clear
Dim a As String
Set Arsiv = Sheets("arsiv")
If id_var(txt_bul.Value) = True Then
    For i = 2 To 1000
        If Arsiv.Cells(i, "A").Value = txt_bul.Text Then
            sonkolon = Cells(i, 256).End(1).Column
            If sonkolon = 3 Then a = txt_bul.Text & " " & Arsiv.Cells(i, "B").Value & " Laboratuvarına Giriş Yapıldı"
            If sonkolon = 4 Then a = txt_bul.Text & " " & Arsiv.Cells(i, "B").Value & " Laboratuvarında Bekleme Aşamasında"
            If sonkolon = 5 Then a = txt_bul.Text & " " & Arsiv.Cells(i, "B").Value & " Laboratuvarı : Test Bekleme ve Test Başlama Arası :" & CDate(Format(Arsiv.Cells(i, "e").Value, "yyyy.MM.dd")) - CDate(Format(Arsiv.Cells(i, "d").Value, "yyyy.MM.dd")) & " Gün"
            If sonkolon = 6 Then a = txt_bul.Text & " " & Arsiv.Cells(i, "B").Value & " Laboratuvarı : Test Başlama ve Test Ok Arası:" & CDate(Format(Arsiv.Cells(i, "f").Value, "yyyy.MM.dd")) - CDate(Format(Arsiv.Cells(i, "e").Value, "yyyy.MM.dd")) & " Gün"
            If sonkolon = 7 Then a = txt_bul.Text & " " & Arsiv.Cells(i, "B").Value & " Laboratuvarı : Test Başlama ve Test Fail Arası:" & CDate(Format(Arsiv.Cells(i, "g").Value, "yyyy.MM.dd")) - CDate(Format(Arsiv.Cells(i, "e").Value, "yyyy.MM.dd")) & " Gün"
            If sonkolon = 8 Then a = txt_bul.Text & " " & Arsiv.Cells(i, "B").Value & " Laboratuvarı : Hata Çözüm ve Test Fail Arası:" & CDate(Format(Arsiv.Cells(i, "h").Value, "yyyy.MM.dd")) - CDate(Format(Arsiv.Cells(i, "g").Value, "yyyy.MM.dd")) & " Gün"
            If sonkolon = 9 Then a = txt_bul.Text & " " & Arsiv.Cells(i, "B").Value & " Laboratuvarı : Hata Çözüm ve Test Ok Arası:" & CDate(Format(Arsiv.Cells(i, "h").Value, "yyyy.MM.dd")) - CDate(Format(Arsiv.Cells(i, "f").Value, "yyyy.MM.dd")) & " Gün"
            ListBox1.AddItem a
            var = True
        End If
    Next
End If
If var = False Then ListBox1.AddItem "Id ye ilişkin kayıt bulunamadı"
End Sub

Merhabalar,
İşlem gerçekleşen kod da, Dolu olan hücrenin 1 gerisi ile yine gelen hücre arası veri değerini veriyor. Bu işlem aslında işimi görüyor fakat 9.kolon kısmında hatalı veri alıyorum. Bunun için bana seçilen hücrenin 2 gerisinin değeriyle işlem yaptırmam gerekiyor.Onun için ;

sonkolon = Cells(i, 256).End(1).Column bu kod la beraber ne kullanmalıyım ki işlemim devam etsin ve farklı kombinasyonlar da ekleme yapıyım.