Looking to see if this VBA subroutine can be made more efficient

Question

To All,
  I have put together a SUB that depending on a constant averages those numbers together then starts the process of exponential smoothing of the number until the last row of data.  As it does so, it checks to see if it is at the last row and then
copies the last number to row 2 of the same column.
  It works fine, but seems a little slow for just 11 columns and 200 rows.  Any thoughts on how to increase the efficiency of the routine?
Thanks
Harry
Private Sub EMACalc()
'EMA Calculations
Dim numRows As Integer
Dim EMAWindow As Long
Dim colCount As Integer
Dim rowCount As Integer
Dim col As Integer
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
numRows = Sheets("InvertData").UsedRange.SpecialCells(xlCellTypeLastCell).Row - 1
colCount = Application.WorksheetFunction.CountIf([BlanksRange], "<>" & "") - 1
EMAWindow = [EMAConst]
For col = 1 To colCount
Sheets("EMALng").Cells(EMAWindow + 1, col) = "=Average(InvertData!R[-" & EMAWindow - 1 & "]C[2]:R[4]C[2])"
For rowCount = EMAWindow + 2 To numRows
Sheets("EMALng").Cells(rowCount, col).FormulaR1C1 = "=InvertData!R[4]C[2]*(2/(EMAWindow + 1)) + R[-1]C * (1-(2/(EMAWindow+1)))"
If rowCount = numRows Then
Sheets("EMALng").Cells(2, col).Value = Sheets("EMALng").Cells(rowCount, col).Value
Else
End If
Next rowCount
Next col
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Answer 1

Hi Harry,
>> It works fine, but seems a little slow for just 11 columns and 200 rows.
I don’t quite understand the goal you were trying to achieve through the code. Based my understanding, accessing 2000+ cells and changing the formula cell by cell may make the macro running slow.
Since I’m not very familiar with your business requirement, I’m not sure whether it is possible to put the logic on the formula instead of changing the formula dynamically through VBA.
Hope it will help.
Regards,
Jeffrey
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.