Seleccionar conjunto de celdas

Hola, mi consulta es la siguiente:
Yo en excel tengo activo un autofiltro y filtrados una seria de datos, luego
tengo programado esto:
Sub CopiarLista()
Range("B8").Select
Selection.Offset (1,0).Select
Range(Selection, Selection.End(xlDown)).Select
Range("B20:L31").Select
Selection.Copy
... Etc
El problema es que lo que quiero que haga es:
Se para en la celda B8, se mueve una celda hacia abajo, que seleccione toda la columna (apretando CTRL+SHIFT+DOWN ) y luego seleccione todas las columnas de la derecha hasta la ultima celda escrita (apretando CTRL+SHIFT+RIGHT) y copie todas esas celdas.
Entonces cuando lo programo grabando la macro me toma específicamente el rango B20:L31 y como ese rango es variable ya que es el resultado de un filtro quiero que sea una codificación universal, yo intente lo siguiente:
Sub CopiarLista()
Range("B8").Select
Selection.Offset (1,0).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
... Etc
pero no funciona... ¿me podrán ayudar con esto?
Muchas gracias.