Function / VBA to Delete Empty Rows or Skip Empty Rows

[CuriousForge]

___________BOOK 1___________________BOOK 2

These 2 workbooks are linked. The function in Book 2 column C2 (Decisions) is =IF([Book1]Sheet1!C2="Declined",C2,"").
I am looking for a function / VBA code to delete the blank/unmatched rows of Book 2 or modify the formula of C2 to skip cells that don't match the "Declined" criteria (i.e are 'Approved').

 

[TimKleinmann]

I am currently working on something very similar. I am a total beginner, and this is my 5th working code so far.

my code is as following:

Sub deleterows()
Dim st As Variant
`set starting point
Range("A2").Select

Do
If ActiveCell.Offset(0, 2).Value = "" Then
ActiveCell.Rows.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select


End If

ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Value = ""
End Sub


My file to work with is a Material file
A column: Material describtion
B column: package size
C column: price
D column: MaterialNumber

When I let this sub run, it will delete all the rows which have no price attached to the product.

Maybe someone can explain me, why my computer is so super slow. I am working on a Xeon Processor, and this short sub is really challenging my computer, though, it is doing what I want.

Hopefully that helps a littlebit, and maybe someone can explain me what I did wrong and why my computer takes so long for this.

thank you
Tim