VBA将代码从MSG Box更改为摘要报告

Question

下午好，

我试过搜索不同的论坛无济于事。

我有以下VBA代码，它将遍历文件夹中的所有文件，并在msge框中生成该文件夹中循环的每个文件的总行数。

如果可能，我需要您的帮助是生成摘要报告。

理想地

摘要报告将显示文件名，并显示H列中包含数据的行数。

    Sub LoopThroughFiles()

Dim folderPath As String

folderPath = ThisWorkbook.Path & "\"

Filename = Dir(folderPath & "*.xlsx")

Do While Filename <> ""
    Set wb = Workbooks.Open(folderPath & Filename, ReadOnly:=True)
    For Each sh In wb.Sheets
        If Application.CountA(sh.Range("H:H")) > 0 Then
            myCount = myCount + sh.Range("H" & Rows.Count).End(xlUp).Row
        End If
    Next
    wb.Close False
    Filename = Dir
    Set wb = Nothing
Loop

MsgBox myCount

End Sub