Visual Basic - Error 1004 en Set rngDestino = wshDestino.Range(celdaDestino1)

Option Explicit

Private Sub ButtonCopy_Click()

Dim wsFactura As Excel.Worksheet

Dim wsFacturaImprimir As Excel.Worksheet

Dim wshOrigen As Object

Dim wshDestino As Object

Dim rngOrigen As Excel.Range

Dim rngDestino As Excel.Range

Dim celdaOrigen1 As Excel.Range

Dim celdaDestino1 As Excel.Range

Dim NorFila As Object

'Indicar las hojas de origen y destino

Set wshOrigen = Worksheets("Factura")

Set wshDestino = Worksheets("FacturaImprimir")

'Indicar la celda de origen y destino

Set NorFila = ActiveCell

Set celdaOrigen1 = Range("A" & (ActiveCell.row))

Set celdaDestino1 = Range("C3")

'Inicializar los rangos de origen y destino

'Set rngOrigen = wsOrigen.Range(celdaOrigen1)

'Error 1004

Set rngDestino = wshDestino.Range(celdaDestino1)

'Seleccionar rango de celdas origen

celdaOrigen1.Select

Selection.Copy