Counting Non Blanks & Blanks Records

Hi All,

I have an data in a columns. Here I need to count the non-blanks and blank records. Please find the attachment file.

Try:

Sub sathishkmaazzbb()
Dim x As Long
Dim y As Long
Dim i As Long
x = 0
y = 0
For i = 2 To Range("A" & Rows.count).End(3)(1).Row
    If Len(Range("A" & i)) < 2 Then
        x = 0
        Range("B" & i).Value = x
    ElseIf Len(Range("A" & i)) >= 2 Then
        x = x + 1
        Range("B" & i).Value = x
    End If
Next i
End Sub

Assumes you'll have more than two characters. Note: the blank cells in your sample contains spaces.

Is it possible to modify the code to get the results like attachment.

Is it possible to modify the code to get the counts like attachment.

Modified:

Sub sathishkmaazzbb()
Dim x As Long
Dim y As Range
Dim i As Long
x = 0
For i = 2 To Range("A" & Rows.count).End(3)(1).Row
    If Len(Range("A" & i)) < 2 Then
        x = 0
        Range("B" & i).Value = x
        Range("C" & i - 1).Value = Range("B" & i - 1).Value
    ElseIf Len(Range("A" & i)) >= 2 Then
        x = x + 1
        Range("B" & i).Value = x
    End If
Next i
Range("C2:C" & Range("B" & Rows.count).End(3)(1).Row).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[+1]C"
For Each y In Range("C2:C" & Range("B" & Rows.count).End(3)(1).Row)
    If y.offset(, -1) <> 0 Then
        y.offset(, -1) = y
    End If
Next y
Range("C2:C" & Range("B" & Rows.count).End(3)(1).Row).ClearContents
End Sub