=ReverseCalc(K12:K72;"П")

Public Function ReverseCalc%(objRange As Range, strSym$)
 Dim i
 For i = objRange.Count To 1 Step -1
 If objRange(i) <> "" Then
 If objRange(i) = strSym Then ReverseCalc = ReverseCalc + 1 Else Exit For
 End If
 Next i
 End Function

Sub Convert_Text_to_Numbers()
    Selection.NumberFormat = "General"
    Selection.Value = Selection.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140722
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("B:B"), Target)
xOffsetColumn = 1
If Not WorkRng Is Nothing Then
    Application.EnableEvents = False
    For Each Rng In WorkRng
        If Not VBA.IsEmpty(Rng.Value) Then
            Rng.Offset(0, xOffsetColumn).Value = Now
            Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm:ss"
        Else
            Rng.Offset(0, xOffsetColumn).ClearContents
        End If
    Next
    Application.EnableEvents = True
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target = Range("C1") Then ' подсвечивается эта строка при ошибке
       If Target.Value <> "" Then
           If Len(Target.Value) < 30 Then
               Target.Parent.Name = Target.Value
           End If
       End If
   End If
End Sub

Private Sub CommandButton1_Click()
Range("B11:E110").Select
Selection.ClearContents
Range("L11:O110").Select
Range("L110").Activate ' лишняя строка, убрал, но ошибка остается
Selection.ClearContents
Range("V11:Y110").Select
Selection.ClearContents
Range("AD1").Select
End Sub