Skip to main content
1 de 3

prueba del siguiente modo:

Dim UltimaFila As Long, x As Long

UltimaFila = Cells(Rows.Count, 1).End(xlUp).Row
Range("B1").FormulaR1C1 = "=""'000""&MID(RC[-1],1,13)&""000',"""
Range("B1").AutoFill Destination:=Range("B1:B" & UltimaFila)

Comentas.