Don't want to waste your time because I probable will not be able to help you.
But in this script show what might you need to change.
You said you had to change Macros frequently.
In the script I published earlier nothing needs to be changed. I published it in order to explain how it works
. But some of the formulas (highlighted in red color) in one of these macros need to be changed quite often, and doing it manually in each file is pretty tedious.:
Sub A_BUY_SELL_Signals_MasterSheet()
'
' BUY_SMA10_30_Crossover_SELL_Price_SMA10_Crossover Macro
'
'
Dim ws As Worksheet
For Each ws In Sheets
If ws.Name <> "Control" And ws.Name <> "Response" Then
ws.Activate
Range("I1").Select
Selection.NumberFormat = "?#,##0.00"
ActiveCell.FormulaR1C1 = "SMA10"
Range("I2").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-3]:R[9]C[-3])"
Range("I2").Select
Selection.AutoFill Destination:=Range("I2:I84")
Range("I2:I84").Select
Range("J1").Select
Selection.NumberFormat = "?#,##0.00"
ActiveCell.FormulaR1C1 = "SMA30"
Range("J2").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-4]:R[29]C[-4])"
Range("J2").Select
Selection.AutoFill Destination:=Range("J2:J84")
Range("J2:J84").Select
Range("K1").Select
Selection.NumberFormat = "?#,##0.00"
ActiveCell.FormulaR1C1 = "BUY/SELL SMA10"
Range("K2").Select
Columns("K:K").EntireColumn.AutoFit
ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[-5]>RC[-2],R[1]C[-5]<R[1]C[-2],RC[-2]>RC[-1]),""BUY"",IF(AND(RC[-5]<RC[-2],R[1]C[-5]>R[1]C[-2]),""SELL"",""""))"
Range("K2").Select
Selection.AutoFill Destination:=Range("K2:K84")
Range("K2:K84").Select
' Range("L1").Select
' Selection.NumberFormat = "?#,##0.00"
' ActiveCell.FormulaR1C1 = "BUY/SELL SMA30"
' Range("L2").Select
' Columns("L:L").EntireColumn.AutoFit
'
ActiveCell.FormulaR1C1 = _
' "=IF(AND(RC[-6]>RC[-2],R[1]C[-6]<R[1]C[-2]),""BUY"",IF(AND(RC[-6]<RC[-2],R[1]C[-6]>R[1]C[-2]),""SELL"",""""))"
' Range("L2").Select
' Selection.AutoFill Destination:=Range("L2:L84")
' Range("L2:L84").Select
' ActiveWindow.ScrollColumn = 2
' ActiveWindow.SmallScroll ToRight:=7
'
' Range("M1").Select
' Selection.NumberFormat = "?#,##0.00"
' ActiveCell.FormulaR1C1 = "BUY/SELL SMA CROSSOVER"
' Range("M1").Select
' Columns("M:M").EntireColumn.AutoFit
' Range("M2").Select
'
'
ActiveCell.FormulaR1C1 = _
' "=IF(AND(RC[-4]>RC[-3],R[1]C[-4]<R[1]C[-3]),""BUY"",IF(AND(RC[-7]<RC[-4],R[1]C[-7]>R[1]C[-4]),""SELL"",""""))"
' Range("M2").Select
'
' Selection.AutoFill Destination:=Range("M2:M84")
' Range("M2:M84").Select
Range("N2").Select
End If
Next ws
ActiveWorkbook.Save