【Excel】VBAマクロで処理が終わるまで待機（doevents：sleep：終わるまで一時停止：前の処理が終わったら：計算完了したら：処理が間に合わない）する方法

Sub MachiHouhou()
    Dim ws As Worksheet
    Dim col As Integer

    For Each ws In ThisWorkbook.Worksheets
        For col = 1 To ws.UsedRange.Columns.Count
            ws.Cells(ws.Rows.Count, col).End(xlUp).Offset(1, 0).Formula = "=SUM(" & ColLetter(col) & ":" & ColLetter(col) & ")"
        Next col
    Next ws

    DoEvents
    Application.Wait Now + TimeValue("00:00:05")
    ThisWorkbook.Save
End Sub

Function ColLetter(colNum As Integer) As String
    ColLetter = Split(Cells(1, colNum).Address, "$")(1)
End Function

Sub TsugiNoHouhou()
    Dim sourcePath As String
    Dim destPath As String
    Dim fileName As String
    Dim combinedWB As Workbook
    Dim combinedWS As Worksheet
    Dim sourceWB As Workbook
    Dim sourceWS As Worksheet

    sourcePath = "C:\source_folder\" ' ソースフォルダのパス
    destPath = "C:\dest_folder\"    ' コピー先のフォルダのパス
    Set combinedWB = Workbooks.Add
    Set combinedWS = combinedWB.Sheets(1)

    fileName = Dir(sourcePath & "*.xls*")
    Do While fileName <> ""
        Set sourceWB = Workbooks.Open(sourcePath & fileName)
        Set sourceWS = sourceWB.Sheets(1)
        sourceWS.Copy After:=combinedWS
        sourceWB.Close False
        fileName = Dir()
    Loop

    combinedWB.SaveAs destPath & "CombinedWorkbook.xlsx"
    combinedWB.Close

    DoEvents
End Sub