Hi,
Would like to know how to stop the looping if cell A is empty.
Appreciate but i have check out the forums here and nothing seems to work.
Many thanks in advance

Sub Fill_Empty()

Dim oRng As Range
Set oRng = Selection

Columns("K:K").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Font.Bold = False
Selection.FormulaR1C1 = "=RC[-10]"
oRng.Copy
oRng.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

End Sub