I am trying to run the following. It is supposed to run through to the end of the list of data. However when I run it, it seems to stop on the first cell (The first cell meets the condition and I get a value pasted to L2). It doesnt seem to keep running through the data after that though. I can't seem to figure out what is wrong with it.... Any help appreciated...
[VBA]
Option Explicit
Sub Tokyo_Time()
Dim i As Long, LastRow As Long
LastRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
If Range("C" & i).Value >= Range("P2").Value And Range("C" & i).Value <= Range("P3").Value Then
Do
Range("L2").Value = Range("O2").Value
Loop Until Range("C" & i).Value = ""
End If
Next i
End Sub
[/VBA]