Stop when No more data exists below

**jaslake** · 12-02-2010, 04:16 PM

Hi Jim28

Like this?

Option Explicit
Public Sub test()
    Dim LR As Long
    Dim i As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    i = 1
    Do
        Cells(i, 1) = i
        i = i + 1
    Loop Until i = LR + 1
End Sub

The code finds the last row used in column A and performs the loop until it finds it.

John

**Jim28** · 12-02-2010, 04:42 PM

Originally Posted by jaslake

Hi Jim28

Like this?

Option Explicit
Public Sub test()
    Dim LR As Long
    Dim i As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    i = 1
    Do
        Cells(i, 1) = i
        i = i + 1
    Loop Until i = LR + 1
End Sub

The code finds the last row used in column A and performs the loop until it finds it.

John

Thanks John is it possible to do it using activecells?