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
''' 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 '''
End If End Sub '''