How to stop looping if cell A is empty

[ahmeonline]

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

[davesexcel]

This is how you add code tags to your post

[davesexcel]

Looking at your code this is what it looks like you are doing.

Please Login or Register  to view this content.

Your actual question may need more detail, though.

[bulina2k]

probably

Please Login or Register  to view this content.