makrodaki If kodları, sadece o program, başka bilgisayarda tersinden çalışıyor, çözemedim

[Salihd46]

arkadaşlar, aynı bilgisayarda sadece bir programda daha önce çalışan aşağıdaki kodlar, geçen gün çalışmaz oldu, hatta if ler tersinden çalışıyor, sadece bu program içinde. aynı kodlar başka isimli programda çalışıyor aynı bilgisayarda, fakat aşağıdaki kodlar tersinden çalışıyor.
yani hücre dolu ise şunu yap yazılı iken, hücre dolu olduğu halde hücre boş gibi tersinden çalışıyor yani hiç anlam veremedim, beynim durdu resmen lütfen yardım,
iki bilgisayar da win10 ve office 2016 güncel

5 te de mesai bitiyor, bilgisayarı kapatacağım, haftaya deneyebilirim bu saatten sonraki cevapları, şimdiden özür dilerim.

Private Sub CommandButton2_Click()
a = ActiveCell.Row

If IsDate(Cells(a, "B")) = True Then
    uyarı = MsgBox(Format(Cells(a, "B"), "dd/mm/yyyy") & " bildirim gününe ait satırı takılanlar sayfasına aktarmak istiyor musunuz?", vbYesNo)
    If uyarı = vbYes Then
        Call aktar1
        If [A3] <> "" Then
            son = WorksheetFunction.Max(2, Cells(Rows.Count, "A").End(3).Row)
            For i = 3 To son
                Cells(i, "A") = i - 2
            Next
        End If
    End If
        Application.ScreenUpdating = True
   
Else
    MsgBox "Seçili satırda uygun veri bulunamadı", vbCritical
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = ActiveCell.Row
If IsDate(Cells(a, "B")) = True Then
    CommandButton2.Caption = Format(Cells(a, "B"), "dd/mm/yyyy") & " gününe ait satır kaydını takıldı yap"
Else
    CommandButton2.Caption = " Veri olan bir satır seçiniz"
End If
With CommandButton1
    .Top = ActiveCell.Top - 50
End With
With CommandButton2
    .Top = ActiveCell.Top - 50
End With
On Error Resume Next
      Application.OnKey "{del}", "mesaj"
      Application.OnKey "{backspace}", "mesaj"
       Application.OnKey "+{F10}", "mesaj"
End Sub