$$Excel-Macros$$ Optimize code to minimize runtime of the macro

Hi friends, I have been writing some macros to perform some astrological calculations (calculating sign, lunar mansion, D9 & D60). The raw data is in the following format: lng in the above image

$$Excel-Macros$$ worksheetfunction.counta not returning correct value

Hello everyone, what i am trying to do is iterate through a range containing worksheet names and if the cell is not empty then add the result of CountA function to the count variable. So the count variable should be equal to number of non lank cells in range B9:B28 on the worksheets I'm iteratin