Sub BuildPlan()

Range("A77:U3000").Select
Selection.Delete

    
    Const startCell = "A5"
    Const stCell = "A73"
    
    Dim ws As Worksheet, sv As Worksheet
    Dim cell As Range, tbl As Range, shift&
    
    Set sv = ThisWorkbook.Worksheets("Svod")
    Set cell = sv.Range(stCell) ' changed
    cell.CurrentRegion.Offset(cell.row - cell.CurrentRegion.row).Clear
    
    For Each ws In ThisWorkbook.Worksheets
        If Not ws Is sv Then
            Set tbl = ws.Range(startCell).CurrentRegion
            shift = ws.Range(startCell).row - tbl.row
            If tbl.Rows.count - shift > 0 Then
                tbl.Offset(shift).Resize(tbl.Rows.count - shift).Copy
                cell.PasteSpecial xlPasteValues
                Set cell = cell.Offset(tbl.Rows.count - shift)
            End If
        End If
    Next
    Application.CutCopyMode = False
End Sub