Sub replacetext()

    ActiveCell.Replace What:="GR Document number", Replacement:= _
        "Capitalization.GR Document number", LookAt:=xlPart, SearchOrder:=xlByRows _
        , MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="GR Document number", Replacement:= _
        "Capitalization.GR Document number", LookAt:=xlPart, SearchOrder:=xlByRows _
        , MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="Evaluation Code", Replacement:= _
        "Capitalization.Evaluation Code", LookAt:=xlPart, SearchOrder:=xlByRows, _
        MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="Asset Class", Replacement:= _
        "Capitalization.Asset Class", LookAt:=xlPart, SearchOrder:=xlByRows, _
        MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="Cost Center", Replacement:= _
        "Capitalization.Cost Center", LookAt:=xlPart, SearchOrder:=xlByRows, _
        MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

Sub SS_WP_UpDateData()
    
    Sheets("Weekly_Plan_Sites").Select
    Range("A2").Select
    
    Dim i As Long, j As Long, k As Long, n As Long, wData As Worksheet, _
        Process(1 To 5) As String, iProc As Long, Dict As Object
    Process(1) = "Sheet1"
    Process(2) = "Sheet2"
    Process(3) = "Sheet3"
    Process(4) = "Sheet4"
    Process(5) = "Sheet5"
    
                        
    Set wData = Sheets("Weekly_Plan_Sites")
    Set Dict = CreateObject("Scripting.Dictionary")
    With wData
        .UsedRange.Offset(1).Clear
        For j = 1 To .Cells(1, .Columns.Count).End(xlToLeft).Column
            If Len(.Cells(1, j)) > 0 Then Dict.Add LCase$(.Cells(1, j)), j
        Next j
    End With
    i = 2
    For iProc = 1 To 5
        With Sheets(Process(iProc))
            n = .Cells(.Rows.Count, 1).End(xlUp).Row
            For j = 1 To .Cells(1, .Columns.Count).End(xlToLeft).Column
                If Dict.exists(LCase$(.Cells(1, j))) Then
                    k = Dict(LCase$(.Cells(1, j)))
                    .Cells(2, j).Resize(n - 1).Copy wData.Cells(i, k).Resize(n - 1)
                End If
            Next j
        End With
        i = i + n - 1
    Next iProc
End Sub

let
    Source = Excel.CurrentWorkbook(){[Name="dpr"]}[Content],
    ms1 = mslist[Column2]{0},
    ms2 = mslist[Column2]{1},
    ColumnstoKeep = List.Select(Table.ColumnNames(Source),each Text.Contains(_, "SITE ID") or Text.Contains(_, ms1) or Text.Contains(_,ms2)),
    KeepedColumns = Table.SelectColumns(Source, ColumnstoKeep),
    #"Inserted Date Subtraction" = Table.AddColumn(KeepedColumns, "Duration", each Duration.Days([MS 10.2 Finish] - [MS 10.1 Start]), Int64.Type)
in
    #"Inserted Date Subtraction"