复制多个工作表的名称 VBA

Question

我创建了一个“主”表，其中包含来自多个工作表（Sheet1、Sheet2、Sheet3）的数据。 现在我想在 B 列（在主工作表中）插入数据来自的工作表名称。 我有一个下面的例子

主表

这是我迄今为止用于合并工作表的代码：

Sub LoopThroughSheets()

    Dim Rws As Long, Rng As Range, ws As Worksheet, sh As Worksheet, c As Range, x As Integer
    Set ws = Worksheets("Master")
    x = 1
    Application.ScreenUpdating = 0
    For Each sh In Sheets
        If sh.Name <> ws.Name Then
            With sh
                Rws = .Cells(Rows.Count, "A").End(xlUp).Row
                Set Rng = .Range(.Cells(1, "A"), .Cells(Rws, "A"))
                For Each c In Rng.Cells
                   
                    If Left(c.Value, 3) = "ABC" Then
                        c.EntireRow.Copy Destination:=ws.Cells(x, "A")
                        x = x + 1
                    End If
                Next c
            End With
        End If
    Next sh
End Sub