Trying to figure out why my scripts creates hidden and randomly values

[most]

I have script which acts irrational, it randomly create data.
In trying to figure out why I notice that there a data in a cell which shouldn't be there.

Prtscr 1

Prtscr 2 - When I press Delete on my keyboard on the second row/second column , the text in first column appears.
My conclusion is that the second column row contains something, right?

Debug.Print Len(ActiveCell.Value) returns 0

This is the code, it's secondary important since this post is more about me figuring out how can see hidden characters.
But If anyone see that this generates a hidden character, I of course appreciates feedback. And of course it's a lot of more code.

'Loop1
  For r1 = 35 To 2 Step -1
  Set c1 = Sheets("P").Range("G" & r1)
   If Not IsEmpty(c1.Value) Then
     If c1.Value = c1.Offset(1, 0).Value Then
       c1.Offset(0, 1).Value = c1.Offset(0, 1).Value + c1.Offset(1, 1).Value
       c1.Offset(1, 1).Value = ""
     Else
     End If
   Else
   End If
  Next r1
'Loop2
  For r2 = 35 To 2 Step -1
  Set c2 = Sheets("P").Range("G" & r2)
   If Not IsEmpty(c2.Value) Then
     If c2.Value = c2.Offset(1, 0).Value Then
       c2.Offset(0, 2).Value = c2.Offset(0, 2).Value + c2.Offset(1, 2).Value
       c2.Offset(1, 2).Value = ""
     Else
     End If
   Else
   End If
  Next r2

 

[Alex Blakenburg]

If you are going to use an image please include the column and row references.
I can't see anything obvious in the code.
• When you look in the cell is there a single quote mark (') in it ?
• if not, how did the data get there, did you copy paste it in from somewhere else ?

For more information see the heading
"There are 3 types of zero-length strings in Excel" at the below link:

What to do when a cell appears to be blank but the ISBLANK function in Excel returns FALSE — Easy Adulthood

In this article we discuss the 3 reasons which cause the ISBLANK function to return false when a cell appears to be empty.

www.easyadulthood.com

 

[most]

No, there are no quote mark (') in it.
How the invisible data get there is what I'm trying figure out.

These are the only lines code I see can write to that column

      c1.Offset(0, 1).Value = c1.Offset(0, 1).Value + c1.Offset(1, 1).Value
       c1.Offset(1, 1).Value = ""

 

[most]

The big question is, how can there be invisible data in cell and I can't see with i.e Debug.Print Len(ActiveCell.Value)?

 

[Alex Blakenburg]

Was data copied into the sheet at any point ?

 

[most]

Was data copied into the sheet at any point ?

Yes, earlier in the script data is copied. The 'shared lines of code' merge data in the second column. Much like this post.
But if I "Debug Step into (F8)" I can that it's the 'shared lines of code' which creates the mystery data. So before, none of the lines have "empty" data has it is after.

 

[Alex Blakenburg]

I can't see the code that you have in Post #1 causing that issue.

If you change the code to add the lines in blue, does it make any difference.

     If c1.Value = c1.Offset(1, 0).Value Then
       c1.Offset(0, 1).Value = c1.Offset(0, 1).Value + c1.Offset(1, 1).Value
       c1.Offset(1, 1).Value = ""
       With c1.Offset(, 1).Resize(2)
            .Value = .Value
       End With
     End If

 

[most]

I can't see the code that you have in Post #1 causing that issue.

If you change the code to add the lines in blue, does it make any difference.

     If c1.Value = c1.Offset(1, 0).Value Then
       c1.Offset(0, 1).Value = c1.Offset(0, 1).Value + c1.Offset(1, 1).Value
       c1.Offset(1, 1).Value = ""
       With c1.Offset(, 1).Resize(2)
            .Value = .Value
       End With
     End If

No, that did not help.
BUT, I changed from "" to Null and that seems to fixed the issue.

c.Offset(1, 1).Value = Null

And I also made this secondary check, but with the Null-change it's redundant.

   'If Not IsNumeric(c.Value) Then
   '    c.Value = ""
   '    c.Offset(0, 1).Value = ""
   '    c.Offset(0, -1).Value = ""
   'End If

 

[Alex Blakenburg]

Glad you found something that works for you.
Without access to you workbook I can't trouble shoot it any further.
I would probably use = Empty rather than = Null. The worksheet doesn't really have the concept of Null and to test for it to be Empty or in your case Null cell you would use IsEmpty. ie IsEmpty will return True but IsNull will return False.