Private Sub BoomShakalaka_Click()

Application.ScreenUpdating = False
ow = Cells(Rows.Count, "J").End(xlUp).Row
For r = ow To 1 Step -1
    If Cells(r, "J") = "Invoiced" Then Rows(r).Delete

Next
Application.ScreenUpdating = True

End Sub