How to fill blank cells with pre-defined values

[ThrottleWorks]

Hi,

Please refer attached file for details.
Can anyone please help me in this.

 

[PCosta87]

Hi @ThrottleWorks

Maybe something like this (assuming that last line "Please note output should replace original input" is not present in real scenario):

Sub test()

    Dim c As Range
    lrow = Columns("A").Cells(Rows.Count).End(xlUp).Row
 
    For Each c In Range("A3:A" & lrow)
        If IsNumeric(c) Then
            c.Offset(1, 1).Value = c.Value
        End If
    Next c
 
    For Each c In Range("B4:B" & lrow)
        If IsEmpty(c) Then
            c.Value = c.Offset(-1, 0).Value
        End If
    Next c
 
    For Each c In Range("A3:A" & lrow)
        If IsNumeric(c) Then
            c.EntireRow.Delete shift:=xlUp
        End If
    Next c
     
End Sub

Just a rough first attempt... I believe it can be "cleaned up"

Regards

 

[ThrottleWorks]

Hi @PCosta87 sir, thanks a lot for the help.
Am checking this and will revert with details.

Have a nice day ahead.

PS - It is working nice sir, thanks a lot.

 

[PCosta87]

Hi @PCosta87 sir, thanks a lot for the help.
Am checking this and will revert with details.

Have a nice day ahead.

PS - It is working nice sir, thanks a lot.

You're welcome