Automatic cut and paste - Microsoft Community

hi
looking solution automatically cut , paste text column b column + 1 row.
please see attached photo
in advance

you can run macro:

sub moveheaders()
    dim r long
    dim m long
    application.screenupdating = false
    m = range("b" & rows.count).end(xlup).row
    r = 1 m
        if range("c" & r).value = "" then
            range("b" & r).cut destination:=range("a" & r + 1)
        end if
    next r
    application.cutcopymode = false
    application.screenupdating = true
end sub

Office / Excel / Windows 10 / Office 2013