Sub ss()
Dim arr1(1 To 10)
Set lastcell = Cells(Rows.Count, 2).End(xlUp)
arr = Range([b2].lastcell)
For i = 1 To lastcell.Row - 1
Next
End Sub
Sub s()
Dim aar1(1 To 10)
Set lastcell = Cells(Rows.Count, 2).End(xlUp)
arr = Range([b2], lastcell)
For i = 1 To lastcell.Row - 1
Next
End Sub