如果字段不为空，则移动数据

Question

我有一个宏，如果单元格1（列A）中的值不为空，我想要移动一行。我在下面试过，但它没有用。它仍然留下一些非空行。

下面只是一些宏。

item1 = Cells(matchline, 1).Value
If (item1 <> "") Then
Sheets("X_Data").Cells(matchline, 1).EntireRow.Copy