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.

    Dim oRng As Range, oC As Range

    Set oRng = Columns("K:K").SpecialCells(xlCellTypeBlanks)

    If Not oRng Is Nothing Then

        For Each oC In oRng.Cells
            oC.Value = oC.Offset(, -10).Value
        Next oC

    End If

Your actual question may need more detail, though.

[bulina2k]

probably

    Dim oRng As Range, oC As Range

    Set oRng = Columns("K:K").SpecialCells(xlCellTypeBlanks)

    If Not oRng Is Nothing Then

        For Each oC In oRng.Cells
If oC.Offset(, -10).Value = "" Then Exit For
oC.Value = oC.Offset(, -10).Value
        Next oC

    End If