salve
con l'istruzione qui sotto,
rigatabella = Cells(riga, 2).End(xlDown).Row
non si definisce un'area ma si rileva l'ultima riga occupata della tabella.
se devi definire un'area dovresti fare in questo modo:
set tabella=range(cells(riga,2),cells(50,2))
saluti
Giap