If one cell in line turn empty then entire line turns empty

You can run a loop that checksfor empty cells and then deletes the entire row. It might look something like this:

Sub clearlines()

Dim empty as Range

For Each empty in Range("A1:A2")

If empty.FormulaR1C1 = "" Then empty.EntireRow.ClearContents

Next empty

End Sub