Why Doesn't My Calculation Work

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

Hi Launchnet
also can you please revise you title
as
Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution. Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.
To change a Title on your post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

PLEASE PM WHEN YOU HAVE DONE THIS AND I WILL DELETE THIS POST