vba do until (i think)

[irenesboy]

Can somebody help me with this macro
I want to run this macro until it reaches a blank cell.
Thank you very much for your help.
irenesboy

Macro1 Macro
' FormatSchedule
'

'
Range("A3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[1]C"
Range("A5").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[1]C"
Range("A7").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[1]C"
End Sub

 

[Joe4]

What does your initial data look like?
What exactly is this macro supposed to do?

 

[irenesboy]

What does your initial data look like?
What exactly is this macro supposed to do?

This macro copies the data (time) from the cell below it
Thank you for your help
irenesboy

 

[Scott Huish]

Change the NumberFormat line to whatever time format you are using:

Sub test()
Dim x As Long
For x = 4 To Range("A" & Rows.Count).End(xlUp).Row Step 2
    With Cells(x - 1, 1)
        .Value = Cells(x, 1)
        .NumberFormat = "hh:mm"
    End With
Next
End Sub

 

[Joe4]

When you say run into it reaches a blank, you actually mean that the cell below the one you are entering into is blank, right?
So, does that mean every other row is populated to start (A3 blank, A4 has data, A5 blank, A6 has data, etc)?

 

[Joe4]

If my previous assumption is correct (every other row is blank), here is a method that uses no loops (so is it more efficient):

Sub MyPopulateRange()

    Dim lastRow As Long
    
'   Find last cell with data in column A
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
'   Select all blank cells in range
    Range("A3:A" & lastRow).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[1]C"
    Range("A3:A" & lastRow).Value = Range("A3:A" & lastRow).Value
    
End Sub