Cell counting question
 

I have a data base marco and I want to know how to write a
small macro. I need it to count the number of blank cells
in column A and when it meets the fourth blank cell
activate this prgoram I have recorded. Obviously I would
want the program to be started in column M and whatever
row the 4th blank cell would be in.

Range("M1232").Select
ActiveCell.FormulaR1C1 = "LOADS"
Range("O1232").Select
ActiveCell.FormulaR1C1 = "=SUM((R[-2]C)+(R[-2]C
[2]))/42000"
Range("S1232").Select
ActiveCell.FormulaR1C1 = "=SUM((R[-2]C[-4])+(R[-2]C[-
2])-(R[-2]C))/42000"
Range("S1233").Select
End Sub