addArr = Array("column 1", "column 2", "column 3")

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