Sobreescribir datos y eliminar el resto de celdas

Buenas tardes,

tengo un botón que llama a una macro que lo que hace es leer los datos de un fichero .csv, el problema es que los datos están en dos columnas y si el fichero que leo tiene menos filas que el que tengo en esas columnas, no me borra los datos que ya tenía, aunque yo he puesto lo siguiente:

.RefreshStyle = xlOverwriteCells

Saludos y muchas gracias.