tarea diaria en excel

[angeldelaguarda]

hola amigos,necesito ayuda con lo siguiente.

varias veces al dia debo exportar datos a excel,quisiera automatizar esto.

rutina

1) exporto campos con sus respectivos registros que se abren en un libro nuevo cada ves de excel
2)siempre debo borrar de una determinada fila hacia bajo porque extrae datos no validos de la tabla, basura.
3) existe una columna con datos alfanumericos al cual debo aplicar funcion (extraer y valor) para poder ordernar finalmente los datos y comezar el trabajo de analisis.

¿alguien que pueda ayudar con esto?, de antemano muchas gracias

[ideasking]

Es dificil con esa explicacion porque no se capta realmente la necesidad que tienes. Danos un ejemplo sencillo de lo que haces a ver si podemos ayudar.

[angeldelaguarda]

Dentro de una tabla de registros hay una columna alfanumerica ala que debo extraer sus numeros,esto me genero la macro de excel.
Pues quiero que la macro identifique hasta que celda de la Fila F hay valores,porque obviamente esta grabada para la 42 y tengo tablas con distintos numeros de filas, espero que me entiendan y disculpas por la poca claridad en la cita anterior.

Range("F2:F42").Select
Selection.Copy
Range("J2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=MID(RC[-1],4,10)"
Range("K2").Select
Selection.AutoFill Destination:=Range("K2:K42")
Range("K2:K42").Select
Range("L2").Select
ActiveCell.FormulaR1C1 = "=VALUE(RC[-1])"
Range("L2").Select
Selection.AutoFill Destination:=Range("L2:L42")
Range("L2:L42").Select
Selection.Copy
Range("F2:F42").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J2:L42").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("F2").Select