Autofill the data based on non blank cell in next row?

[Admin]

Hi Rajesh,

try this. adjust the range.

Sub kTest()
    
    Dim r   As Range, k, i As Long, c As Long
    
    Set r = Intersect(ActiveSheet.UsedRange, Range("a:e")) '<<=== adjust the range(a:e) part
    
    With r
        .Columns(1).Insert
        .Columns(1).Offset(, -1).FormulaR1C1 = "=counta(rc[1]:rc[" & .Columns.Count & "])"
        k = .Columns(1).Offset(, -1).Resize(, .Columns.Count + 1).Value
        For i = 1 To UBound(k, 1)
            If k(i, 1) = 1 Then
                If i + 1 <= UBound(k, 1) Then
                    For c = 2 To UBound(k, 2)
                        k(i, c) = k(i + 1, c)
                    Next
                    i = i + 1
                End If
            End If
        Next
        .Columns(1).Offset(, -1).Resize(, .Columns.Count + 1) = k
        .Columns(1).Offset(, -1).Delete
    End With
    
End Sub