Excel - Macro para cortar e insertar filas

Hola de nuevo a tod@s por aca,

Disculpen la molestia pero espero que me ayuden con esto por favor.

Lacuestion es la siguiente, en una hoja se llevan varios casos y cada caso es una fila que se clasifican: Ceso, En Seguimiento y Reconocida.

Ahora necesito una macro que al teclear un acceso directo, puede ser Ctrl+Shift+g; corte todas las filas con clasificacion diferente a "Ceso" y las inserte (no pegar para que no queden los espacios vacios) justo despues de la ultima fila con datos.

Espero me puedan ayudar y de antemano muchisimas gracias por la atencion prestada y disponer de su tiempo.

Saludos!!

probá con la grabadora de macros...

Saludos desde Baires, JuanC

Hola Juan C, gracias por la sugerencia amigo.

Ya lo habia intentado pero lamentablemente no me toma cortar celdas alternas y aparte en la grabacion no podria hacer que el codigo tome a las filas que no tengan en la celda determinada "Ceso".

Gracias por tomarte tiempo en contestar si alguien mas me pudiera ayudar se los agradezco de antemano.

Saludos,

no tengo demasiado tiempo ahora, así q t dejo algo +/- para darte una idea
Option Explicit

Sub test()
Dim c As Range
Dim rng As Range
For Each c In [A1:A10]
If Trim(UCase(c.Value)) <> "CESO" Then
If rng Is Nothing Then
Set rng = c
Else
Set rng = Union(rng, c)
End If
End If
Next

If rng Is Nothing Then Exit Sub

Range("B2:B" & rng.Count + 1).Insert Shift:=xlDown
rng.Copy
[B2].Select
ActiveSheet.Paste
Application.CutCopyMode = False
Set rng = Nothing
Set c = Nothing
End Sub

Saludos desde Baires, JuanC

326.19% a numero