Sorry for such a simple question, but I give up.

My comments in the code tells where the error is, using either 1 or blank

Sub AutoCalcPosting()

'My activecell has a value of one in it.

    If (ActiveCell = 1) Then
         K12 = K12 + 1   'this row does not work
    
    Else
    
    If (ActiveCell = blank) Then
         j12 = 1 'this row does not work either
    End If
    End If

End Sub