looping with dates

I have a worksheet with 2 columns, row 1 is the header and row 2 will be information and date.
What I then need to do is check that if thre is anything in the next row (A3) if so then (B3) will be the same date as (B2), I need to do this untill Column A has a blank row

Hope this is comprehensible?

Using excel 2000

Many thanks
John

Is this what you need

Dim rng As Range
Dim cl As Range

Set rng = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))

For Each cl In rng
If Not IsEmpty(cl) Then cl.Offset(0, 1).Value = cl.Offset(-1, 1).Value
Next cl

Try this amendment

Dim rng As Range
Dim cl As Range

Set rng = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))

For Each cl In rng
If Not IsEmpty(cl) And IsEmpty(cl.Offset(0, 1)) Then cl.Offset(0, 1).Value = _
    cl.Offset(-1, 1).Value
Next cl

Try bthis

Dim rng As Range
Dim cl As Range

If IsEmpty(Cells(2, 2)) Then Exit Sub
Set rng = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))

For Each cl In rng
If Not IsEmpty(cl) And IsEmpty(cl.Offset(0, 1)) Then cl.Offset(0, 1).Value = _
    cl.Offset(-1, 1).Value
Next cl

Glkad it helped

If you are satisfied with the solution(s) provided, please mark your thread as Solved and rate the answer(s)

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save