如何解决复制数据时将空白行一起复制的问题？

arno61361

求解决每次表“2来人”自动复制到表“附件4-人来总表”时，表“附件4-人来总表”的第二次复制保存的数据无法从第一次复制保存的数据的最后一行开始，第一次数据和第二次数据表格中间存有240多行的空白（初步判断是将表“2来人”空白部分（有下拉选项格式）一起复制过来导致的），造成表“附件4-来人总表”数据不连贯，求高手帮忙指点，谢谢！

以下是目前使用的代码：

Private Sub auto复制()
    Dim arr
        arr = Range("e3:ai" & Range("e65536").End(3).Row)
             With Sheets("附件4-来人总表")
            .Range("b" & .Range("B65536").End(3).Row + 1).Resize(UBound(arr), UBound(arr, 2)) = arr
        End With
End Sub

arno61361

木有老师指点？