附加所有工作表中的范围值

Option Explicit

Sub AppendRangeValues()

    Const SRC_RANGE As String = "A5:P20"

    Dim wb As Workbook: Set wb = ThisWorkbook ' workbook containing this code
    Dim dws As Worksheet: Set dws = wb.Sheets("Master")
    Dim dfCell As Range
    Set dfCell = dws.Cells(dws.Rows.Count, "A").End(xlUp).Offset(1)
    
    Dim drg As Range, rCount As Long
    
    With dws.Range(SRC_RANGE)
        rCount = .Rows.Count
        Set drg = dfCell.Resize(rCount, .Columns.Count)
    End With
    
    Dim sws As Worksheet
    
    For Each sws In wb.Worksheets
        If Not sws Is dws Then
            drg.Value = sws.Range(SRC_RANGE).Value
            Set drg = drg.Offset(rCount)
        End If
    Next sws
    
    MsgBox "Range values appended.", vbInformation
    
End Sub