He hecho la parte principal del macro, pero a la hora de mandar a copiar la información se salta una columna; hasta donde sé el código debería estar bien. Una disculpa, soy nuevo con esto de los macros.

'''
Sub insertar_registro()

Sheets("GENERAL").Select

' Ultima fila editada
ultimo = Cells(Rows.Count, 1).End(xlUp).Row

' Si el ultimo registro es del departamento JURIDICO
If Cells(Rows.Count, "K").End(xlUp).Value = "JURIDICO" Then
    For i = 1 To 10
            ' Se copia el utimo campo utilizado
            Cells(ultimo, i).Copy
            
            ' Se selecciona la hoja JURIDICO
            Sheets("JURIDICO").Select
            
            ' Siguiente fila a editar
            siguienteFila = Cells(Rows.Count, 1).End(xlUp).Row + 1
            
            ' Seleccion de la celda a editar
            Cells(siguienteFila, i).Select
            
            ' Se pega la informacion de la celda en la hoja activa
            ActiveSheet.Paste
            
            ' Se regresa a la hoja GENERAL
            Sheets("GENERAL").Select
    Next i
End If
End Sub
'''

A la hora de ejecutar me sale así
[![introducir la descripción de la imagen aquí][1]][1]


  [1]: https://i.sstatic.net/OQJFt.png