Copiar datos de una hoja a otra, hay datos en la hoja y datos en una tabla insertada en la misma hoja

La variable NombreHoja va sin comillas:

With ThisWorkbook.Sheets(NombreHoja)

Nota: En futuras publicaciones, no pongas el código en una imagen, pon el código utilizando el icono para insertar código.

[Al final de mi respuesta hay un botón para valorarla.

La variable NombreHoja va sin comillas:

With ThisWorkbook.Sheets(NombreHoja)

Dante muchas gracias por responderme, corregí el dato pero al ejecutar el código me entrega el mismo mensaje.

Será que hay un límite de datos a copiar en la otra hoja... Saludos cordiales.

Option Explicit
Sub GuardarVoucher()
Dim NombreHoja As String
Dim HojaDestino As Range
Dim NuevaFila As Integer
Dim FilasVoucher As Integer
Dim i As Integer
Dim j As Integer
'Dim NroVoucher As Integer

NombreHoja = "BDVoucher"
FilasVoucher = Application.WorksheetFunction.CountA(Range("DetalleVoucher[Rut]"))
'NroVoucher = ThisWorkbook.Sheets("Voucher").Range(NroVoucher).Value
With ThisWorkbook.Sheets(NombreHoja)
For i = 1 To FilasVoucher

Set HojaDestino = ThisWorkbook.Sheets(NombreHoja).Range("A1").CurrentRegion 'HojaDestino
NuevaFila = HojaDestino.Rows.Count + 1
.Cells(NuevaFila, 1).Value = Range("Institucion").Value
.Cells(NuevaFila, 2).Value = Range("Proyecto").Value
.Cells(NuevaFila, 3).Value = Range("CodProyecto").Value
.Cells(NuevaFila, 4).Value = Range("Banco").Value
.Cells(NuevaFila, 5).Value = Range("CtaCte").Value
.Cells(NuevaFila, 6).Value = Range("Fecha").Value
.Cells(NuevaFila, 7).Value = Range("FolioBco").Value
.Cells(NuevaFila, 8).Value = Range("TipoPago").Value
.Cells(NuevaFila, 9).Value = Range("Glosa").Value
.Cells(NuevaFila, 10).Value = Range("TipoVoucher").Value
.Cells(NuevaFila, 11).Value = Range("NroVoucher").Value
For j = 1 To 12
.Cells(NuevaFila, j + 11).Value = ThisWorkbook.Sheets("Voucher").Cells(9 + i, 1 + j)
Next j
Next i
End With
MsgBox "Alta exitosa", vbInformation, "Info DEM"
End Sub

Hola, revisé el código le hice varias pruebas y no me funciona, quizás se deba a una de estas causas:

a) Que, estoy traspasando 23 datos a la otra hoja y con esto estoy sobrepasando algún límite,

b) Que, estoy utilizando excel 365 y quizás el código entra en conflicto con esta versión,

c) Que, definitivamente en alguna parte omití algún paso o detalle importante

d) Que, el uso de formularios userform esté interfiriendo en alguna parte del desarrollo.

Bajé de la página del autor el archivo original y al ejecutarlo funciona sin problemas pero el archivo mío que tiene un código muy similar al del autor me ha dejado definitivamente tirado. Por favor amigo Dante u otro colaborador necesito luces para seguir... muchas gracias. Waldo...