macro para sacar

Teniendo el siguiente macro: Sub inserta() Dim celda As Range For Each celda In Range("B:B") If celda.Value = "" Then Exit Sub If celda.Value > celda.Row Then celda.EntireRow.Insert Next celda End Sub Necesito sacar el ...

Tengo un archivo de texto que sale de AS/400 muy grande y tengo que crear una macro o algo parecido para que me borre ciertos campos y asi me quede con el largo de linea que necesito, pero no puedo borrar los extremos sino que datos precisos. ...