want to speed up a loop algorithm

whenever i run this vba it takes 10-15 minutes. is there a way to do this quicker or do i have to upgrade my hardware? thanks

Sub Get_Max_And_Min()
Dim WB As Workbook
Dim A As Long
Dim StartFn As Long
Dim EndFn As Long

StartFn = 30
EndFn = 130

    Application.Workbooks.Open ("C:\Users\wolfgang\Desktop\huraa1.xlsb")
    Application.Workbooks.Open ("C:\Users\wolfgang\Documents\recording.xlsx ")

For A = StartFn To EndFn

    Set WB = Application.Workbooks.Open("C:\Users\wolfgang\Documents\M" & A & ".xlsb ")
    Windows("huraa1").Activate
    Range("A2:F94190").ClearContents
    WB.Activate
    Range("A1:F94153").Copy
    Windows("huraa1").Activate
    Range("A2").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
    Application.Calculate
  WB.Activate
    Range("G1").Copy
    Windows("huraa1").Activate
    Range("BH2").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
  Range("BE2:BH3").Copy
    Windows("recording").Activate
    Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
    Windows("huraa1").Activate
    Range("A2:F94190").ClearContents
    WB.Activate
    Range("A94152:F174675").Copy
    Windows("huraa1").Activate
   Range("A2").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
    Application.Calculate
WB.Activate
    Range("G1").Copy
    Windows("huraa1").Activate
    Range("BH2").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
    Range("BE2:BH3").Copy
    Windows("recording").Activate
    Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    WB.Close SaveChanges:=False
Next
End Sub

You have a loop 30 to 130 so line that you can delete will save 100 actions.

You don't say if you have taken the basic steps to speed up excel.

It is good practice to run something like my Optimise subroutine before running as macro with major loops:-

Sub optimise()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
Application.DisplayStatusBar = False
'Application.Calculation = xlCalculationManual
ActiveSheet.DisplayPageBreaks = False
End Sub

You need to run Deoptimise to reverse its effects:-

Sub Deoptimise()
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.DisplayStatusBar = True
'Application.Calculation = xlCalculationAutomatic
ActiveSheet.DisplayPageBreaks = True
End Sub

You should be aware as to the affects of the above. So if you want excel to calculate a workbook during your code, don't set the calculation mode to manual.

This line works:

Workbooks("Book1.xlsx").Sheets("sheet1").Range("A1") = Workbooks("Book3.xlsm").Sheets("sheet1").Range("A1").Value

So Looking at your code, you can delete numerous lines :-

Sub Get_Max_And_Min()
Dim WB As Workbook
Dim A As Long
Dim StartFn As Long
Dim EndFn As Long

StartFn = 30
EndFn = 130

    Application.Workbooks.Open ("C:\Users\wolfgang\Desktop\huraa1.xlsb")
    Application.Workbooks.Open ("C:\Users\wolfgang\Documents\recording.xlsx ")

For A = StartFn To EndFn

    Set WB = Application.Workbooks.Open("C:\Users\wolfgang\Documents\M" & A & ".xlsb ")

    Windows("huraa1.xlsb").Range("A2:F94190").ClearContents

    Windows("huraa1.xlsb").Range("A2:94154").End(xlUp).Offset(1).Value =    WB.Range("A1:F94153").Value
 
Next
End Sub