Delete row and row below (vba)

[excel_2009]

Hi excel gurus, is it possible to delete a row if the cell contains "Building 101" AND delete the row below too?

e.g:

Random
Building 101
Yes
Hello World

The goal would be to delete Building 101 and Yes however the rows below would also be shifted up i.e:

Random
Hello World

Thank you!!

 

[Joe4]

Which column do you want to search?
Will the value always be JUST/EXACTLY "Building 101", or might "Building 101" be a part of a longer string?
(In other words, are you looking for EXACT matches only, or also PARTIAL matches?)

 

[excel_2009]

Hi Joe,

The exact match, it'll only ever be Building 101 in column A

Thank you!

 

[Joe4]

Try this:

Sub MyDeleteRows()

    Dim lr As Long
    Dim r As Long
    
    Application.ScreenUpdating = False
    
'   Find last row in column A with data
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    
'   Loop through all rows backwards
    For r = lr To 1 Step -1
'       See if value in column A is "Building 101"
        If Cells(r, "A") = "Building 101" Then
'           Delete row and row below
            Rows(r & ":" & r + 1).Delete
        End If
    Next r
    
    Application.ScreenUpdating = True
    
    MsgBox "Macro complete!"
    
End Sub

 

[excel_2009]

Amazing, thank you Joe! Much appreciated

 

[Joe4]

You are welcome.
Glad I was able to help!