Macro Excel. No sé cómo hacerlo.

[dorde]

yo hice algo parecido con esto, pero no borro la formula de la primera fila,

espero te sirva

Sheets("Estandard").Select
Range("J7:K7").Select <=== AQUI ESTAN LAS FORMULAS
Range(Selection, Selection.End(xlDown)).Select <=== LAS COPIA HASTA EL FINAL
Selection.ClearContents



Dim RwEnd, x As Integer
Application.Goto Reference:="R6C1"

'copia formulas
RwEnd = Range(Cells(1, 6), Selection.End(xlDown)).Count
Range(Cells(6, 10), Cells(6, 11)).Copy
Application.Goto Reference:="R6C10"
Range(Cells(7, 10), Cells(RwEnd, 11)).Activate
Selection.PasteSpecial Paste:=xlFormulas
Application.CutCopyMode = False
Application.Goto Reference:="R1C1"

Range("J7:K7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' ESTO ES VANIDAD
Selection.Replace What:="-", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="#¡VALOR!", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False