在VBA中泛化

我是新的VBA为Excel编程（工作访问之前），并希望帮助了解如何推广Excel。 我在互联网和堆栈溢出Vba中尝试了很多代码，下面是我需要帮助的地方。

我怎样才能复制粘贴数据。 我有一个主表（20列）和每日5张左右的小薄片（每张小薄片可以不同）。 现在我需要将这些表单映射到父表单。 例如; 我映射一个50行5列的文件，所以在父表中，所有50行的列都是空的。 对于下一张表格，其他一些列将是空的。 我只是坚持如何每次select一个特定的列。

x.Worksheets("Sheet1").Activate Range("A65536").Select **' What does A65536 mean** ActiveCell.End(xlUp).Select lastrow = ActiveCell.Row Range("A2:A" & lastrow).Copy y.Worksheets("Sheet1").Range("a65536").End(xlUp).Offset(1, 0) Range("B2:B" & lastrow).Copy y.Worksheets("Sheet1").Range("b65536").End(xlUp).Offset(1, 0) 

上面的代码工作，但不适合我，因为我有一些行中的列的空白值，因此下一个值占用这些空间，这对我来说是错误的。提前感谢。