Как вырезать данные и вставить их в пустую строку в Excel VBA

Question

Я хочу иметь возможность перемещать данные в пустые ячейки (используя вырезание и вставку) после удаления данных.

Как выможно увидеть в "I7" и "I8" нет данных. Я хочу иметь возможность взять данные в 2 строки ниже и переместить их вверх, чтобы не было разрыва между данными. Я хочу сделать это в моей подпроцедуре после удаления данных.

Sub CopyData()

    Dim FindLP As Range
    Set FindLP = Sheets("Inprocess").Range("J:J").Find(What:=Sheets("Engine").Range("E6").value, LookIn:=xlValues, LookAt:=xlWhole)

    ThisWorkbook.Sheets("Inprocess").Select
    FindLP.Select
    Range(Selection.Offset(0, -1), Selection.Offset(0, 2)).Cut
    ThisWorkbook.Sheets(" Completed").Select
    Range("I" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveSheet.Paste

End Sub

Надеюсь, это имеет смысл.