Need help: Shift cell up

[kirtesh250187]

I have a table which has four columns. I want a code which will search for a value in first column and if found it should "delete shift cell up" only that range (i.e four columns) and not the entire row.

thanks

 

[Chris Mack]

This would work for column A:

Sub DeleteAndShift()
    n = Cells(Rows.Count, 1).End(xlUp).Row
    For r = n To 1 Step -1
        If Cells(r, 1) = "Value" Then
            Range(Cells(r, 1), Cells(r, 4)).Delete Shift:=xlUp
        End If
    Next
End Sub

Hope this helps,

Chris.

 

[kirtesh250187]

Thank you so much

 

[Chris Mack]

Yw!