Borrar contenido de rango de celdas en hoja excel con VBA

Tengo un Userform que carga información de una parte de mi hoja excel, y necesito eliminar el contenido de ese rango que se seleccione en mi listbox de dicho userform y además suba las líneas que se encuentran debajo de la eliminada sin alterar la hoja como tal, adjunto imagen de mi hoja y mi código