arr = Sheet1.Range("b2:k" & Sheet1.Range("b65536").End(3).Row)
先将其拆分：Sheet1.Range("b65536").End(3).Row是求表1的[b65536]向上查找第一个有数据的单元格行数，也就是B列最后一个有数据的单元格。sheet1指工作表，range("b65536")是指[b65536]单元格，end是位移，(3)是xlup，即向上，row是行。假如这个值求出来是20，那再合起来，等号右边就是sheet1.range("b2:k20")这个区域。再将此区域的值赋给arr数组变量。