Una incógnita aparentemente sin respuesta

Lo que hace esta línea, es establecer en el objeto TransRowRng, la región actual que ocupa la hoja "Datos" desde la celda A1 -cells(1,1)-

Set TransRowRng = ThisWorkbook.Worksheets("Datos").Cells(1, 1).CurrentRegion

Y lo que hace esta línea es contar el número de líneas que hay en el rango y sumarle una

NewRow = TransRowRng.Rows.Count + 1

Es por eso que si tienes un dato en la columna "L", según tu ejemplo tienes la palabra "valor" en la celda "L8", entonces ese dato es considerado dentro de la región actual de la hoja; por lo tanto la última línea de la región es la fila 8; si a la fila 8 se le suma 1, entonces la siguiente línea es la 9. Es por eso que el nuevo registro te lo pone en la fila 9.

Para cambiar lo anterior, se utiliza esta línea:

NewRow = .Range("A" & Rows. Count).End(xlUp). Row + 1

Lo que hace es encontrar la última fila con datos de la columna "A" y le suma 1, sin importar si tienes datos en la columna "L".

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias