粘贴到列中的下一个空行

Question

此代码将值从Excel文件复制并粘贴到masterfile

 Dim copySheet As Worksheet
 Dim pasteSheet As Worksheet

Set copySheet = Worksheets("data")
Set pasteSheet = Worksheets("KoMKo")
lRow = copySheet.Cells(copySheet.Rows.Count, 1).End(xlUp).Row

 With copySheet.Range("BX2:BX" & lRow)
 pasteSheet.Cells(Rows.Count, "A").End(xlUp).Offset(1,    0).Resize(.Rows.Count, .Columns.Count) = .Value
End With

现在我想将另一个Excel文件BX2列复制粘贴到pasteSheets列A.由于我的代码将值粘贴到第一个空行，如果粘贴列中有空值，则此列空单元格将被覆盖下一个复制/粘贴值，因为vba将其视为空行。我怎样才能防止这种情况发生？