I modified the macro you used in the workbook to eliminate the formulas and solved the letter issue.
Sub inputformula13()
Sheets(1).Activate
Range("F2").Select
Do Until ActiveCell.Value = ""
Let a = Format(CDec(ActiveCell.Value), "00000")
ActiveCell.FormulaR1C1 = "=TEXT(MID(RC[10],6,5),""00000"")"
ActiveCell.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Let b = Format(ActiveCell.Value, "00000")
Let c = ActiveCell.Row
If a <> b Then
ActiveCell.Value = a
Selection.Interior.ColorIndex = 6
Range("F" & c & "").Select
End If
ActiveCell.Offset(1, 0).Select
Loop
Range("G2").Select
Do Until ActiveCell.Value = ""
Let a = Format(CDec(ActiveCell.Value), "00000000")
ActiveCell.FormulaR1C1 = "=TEXT(MID(RC[9],11,5),""00000000"")"
ActiveCell.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Let b = Format(ActiveCell.Value, "00000000")
Let c = ActiveCell.Row
If a <> b Then
ActiveCell.Value = a
Selection.Interior.ColorIndex = 6
Range("G" & c & "").Select
End If
ActiveCell.Offset(1, 0).Select
Loop
Range("H2").Select
Do Until ActiveCell.Value = ""
Let a = Format(ActiveCell.Value, "000000000000")
ActiveCell.FormulaR1C1 = "=TEXT(RIGHT(RC[8],12),""000000000000"")"
ActiveCell.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Let b = Format(ActiveCell.Value, "000000000000")
Let c = ActiveCell.Row
If a <> b Then
ActiveCell.Value = a
Selection.Interior.ColorIndex = 6
Range("H" & c & "").Select
End If
ActiveCell.Offset(1, 0).Select
Loop
Range("A1").Select
End Sub
Bookmarks