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.
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.