read values from cells and compare them with preset values

i have a range from 40 rows and open no. of columns
i need vb program that performs the following
1- read A5
2- if A5 has value , program makes A5 red color and then go to A6 and make same action
3- if A5 is empty , program goes to A6 and read A6 value make same action
4- repeat until A45
5- go to column 2 starting from B5 and repeat the same steps
6- program stops at last empty column

You might use Conditional Formatting with the formula =(A1<>"") to turn the cells red rather than using VBA.

thank you for that
it really helps
i modified by adding time delay 1 second in each row or column scan
but is there a code to give me delay time in milliseconds?
Sub ChckRang()
Dim cell As Range
Dim i As Integer
Dim j As Integer

For i = 5 To 40
Application.Wait (Now + TimeValue("00:00:1"))

For j = 1 To ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column

If Cells(i, j) <> "" Then
Application.Wait (Now + TimeValue("00:00:1"))
Cells(i, j).Interior.Color = vbRed

End If

Next

Next

End Sub