El problema está en la manera en la que accedes a los rangos, así cuando escribes
OrigenHoja.Range(Cells(a, 15), Cells(a, 19)).Copy
DestinoHoja.Range(Cells(a, 15), Cells(a, 19)).PasteSpecial xlPasteAll
y debido a como Excel gestiona las funciones y macros, se hace necesario añadir .Address siempre y cuando el dato a trabajar esté en una hoja distinta desde la que estamos ejecutando nuestra Sub o Function. Que sea o no la hoja activa no afecta (de hecho la línea OrigenHoja.Activate puede ser silenciada y el código seguirá funcionando perfectamente)
Por lo tanto si Sub CondicionalTopTxx() está escrita en la hoja TNC D el código será:
OrigenHoja.Range(Cells(a, 15), Cells(a, 19)).Copy
DestinoHoja.Range(Cells(a, 15).Address, Cells(a, 19).Address).PasteSpecial xlPasteAll
Si Sub CondicionalTopTxx() está escrita en la hoja TNC B el código será:
OrigenHoja.Range(Cells(a, 15).Address, Cells(a, 19).Address).Copy
DestinoHoja.Range(Cells(a, 15), Cells(a, 19)).PasteSpecial xlPasteAll
Si no tenemos esto en cuenta obtendremos un error 1004 en tiempo de ejecución. Si decidimos poner siempre .Address evitaremos problemas si copiamos esa función a otras hojas. El código que dejo lo hace así.
Si he entendido bien lo que quieres hacer, este código te funcionará perfectamente.
He cambiado algunos valores para hacer el ejemplo. Adáptalo a tus necesidades.
Sub CondicionalTopTxx()
Dim OrigenHoja As Excel.Worksheet, _
DestinoHoja As Excel.Worksheet, _
a As Integer
Set OrigenHoja = Worksheets("TNC D")
Set DestinoHoja = Worksheets("TNC B")
'OrigenHoja.Activate
For a = 2 To 15
Set valor = OrigenHoja.Cells(a, 5)
If valor.Value < 4 Then
OrigenHoja.Range(Cells(a, 15).Address, Cells(a, 19).Address).Copy
DestinoHoja.Range(Cells(a, 15).Address, Cells(a, 19).Address).PasteSpecial xlPasteAll
Application.CutCopyMode = False
End If
Next
End Sub
Ejemplo real del código. A la iquierda las celdas con números aleatorios. A la derecha los rangos copiados a otra hoja que cumplen la premisa Columna < 4

Ahora bien, la extraña forma en la que Excel gestiona estas referencias (directas o indirectas) requiere una serie de aclaraciones que nos ayudarán a evitar esos errores a los que Excel nos tiene acostumbrado.
Si la Function o Sub está en un módulo y la propiedad .Address no está aplicada en ninguna de las sentencias:
OrigenHoja.Range(Cells(a, 15), Cells(a, 19)).Copy
DestinoHoja.Range(Cells(a, 15), Cells(a, 19)).PasteSpecial xlPasteAll
el código fallará en todos los casos. No importa si la llamamos desde una hoja u otra o desde el mismo módulo o desde un Sub o Function. Fallará y nos mostrará un error 1004… en el método ‘Range’ de objeto ‘_Worksheet’ o un simple error 1004….
Si la propiedad .Address se encuentra solo en una de ellas (pongo un único ejemplo)
OrigenHoja.Range(Cells(a, 15).Address, Cells(a, 19).Address).Copy
DestinoHoja.Range(Cells(a, 15), Cells(a, 19)).PasteSpecial xlPasteAll
la función solo correrá si la hoja activa coincide con la hoja apuntada por la sentencia que hace referencia directa, en este caso
DestinoHoja.Range(Cells(a, 15), Cells(a, 19)).PasteSpecial xlPasteAll
La dinámica de este comportamiento conlleva una especial atención ya que según el lugar donde esté el código (objeto hoja, módulo) y la hoja activa en ese momento nos encontraremos con resultados distintos.