Copiar rango de solo valores un nuevo libro

Me conseguí una macro que copia un rango de celdas variables a un nuevo libro lo que quiero modificar es que el nombre del nuevo libro lo tome de una celda de la pagina en B1 pero me da error aqui el codigo

CODE

Sub CopiarCeldas()

'Definir objetos a utilizar

Dim Nom_Libro As String

Nom_Libro = Range("B1").Value

Dim wbDestino As Workbook, _

wsOrigen As Excel.Worksheet, _

wsDestino As Excel.Worksheet, _

rngOrigen As Excel.Range, _

rngDestino As Excel.Range

'Indicar el libro de Excel destino

Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & Nom_Libro)

'Activar este libro

ThisWorkbook.Activate

'Indicar las hojas de origen y destino

Set wsOrigen = Worksheets("Origen")

Set wsDestino = wbDestino.Worksheets("HojaDestino")

'Indicar la celda de origen y destino

Const celdaOrigen = "B3"

Const celdaDestino = "A1"

'Inicializar los rangos de origen y destino

Set rngOrigen = wsOrigen.Range(celdaOrigen)

Set rngDestino = wsDestino.Range(celdaDestino)

'Seleccionar rango de celdas origen

rngOrigen.Select

Range(Selection, Selection.End(xlDown)).Select

Range(Selection, Selection.End(xlToRight)).Select

Selection.Copy

'Pegar datos en celda destino

rngDestino.PasteSpecial xlPasteValues

Application.CutCopyMode = False

'Guardar y cerrar el libro de Excel destino

wbDestino.Save

wbDestino.Close

End Sub

CODE