Hi

I have used the macro recorder for the code below - I have the problem
that some of the cells in each row will be empty and if they are empty I don't know how to leave them empty any help much appreciated.

[vba]
Sub Macro3A()
'Macro converts a number(1) to a letter
Application.ScreenUpdating = False
Sheets("Breeder").Select
Range("I2").Select
ActiveCell.FormulaR1C1 = "A"
Selection.AutoFill Destination:=Range("I2:I24"), Type:=xlFillDefault
Range("I2:I24").Select
Range("J2").Select
ActiveCell.FormulaR1C1 = "B"
Selection.AutoFill Destination:=Range("J2:J24"), Type:=xlFillDefault
Range("J2:J24").Select
Range("K2").Select
ActiveCell.FormulaR1C1 = "C"
Selection.AutoFill Destination:=Range("K2:K24"), Type:=xlFillDefault
Range("K2:K24").Select
Range("L2").Select
ActiveCell.FormulaR1C1 = "D"
Selection.AutoFill Destination:=Range("L2:L24"), Type:=xlFillDefault
Range("L2:L24").Select
Range("M2").Select
ActiveCell.FormulaR1C1 = "E"
Selection.AutoFill Destination:=Range("M2:M24"), Type:=xlFillDefault
Range("M2:M24").Select
Range("N2").Select
ActiveCell.FormulaR1C1 = "F"
Selection.AutoFill Destination:=Range("N2:N24"), Type:=xlFillDefault
Range("N2:N24").Select
Range("O2").Select
ActiveCell.FormulaR1C1 = "G"
Selection.AutoFill Destination:=Range("O2:O24"), Type:=xlFillDefault
Range("O2:O24").Select
Application.ScreenUpdating = True

End Sub
[/vba]

All you experts out there will I know an easier way of doing this.

Many thanks

Sooty 8