Resp = MsgBox("The data will be refresh from WorkSheet", vbYesNoCancel)
If Resp <> vbNo Then
ActiveWorkbook.RefreshAll
Else
End If

For Each pageProject In arrayProject
    

     ''define sheet that will be filled
    
    Set DateRange = Worksheets(pageProject).Range("B3")
    PageName = CStr(DateRange)
    
    Set idArray = Worksheets(pageProject).Range("C2:C100") ''WorkSheets ID employee
    
    On Error GoTo ErrorNamePage:
    
    Set idSourceRange = Worksheets(PageName).Range("C3:C100") ''a.xls employee
    
    Set workdays = Worksheets(pageProject).Range("E4:I4")
    i =  0 
    For Each Row In workdays
        Period(i) = Row.Value
        i = i +  1 
    Next
  
        If DateDiff("m", Period( 0 ), Period( 4 )) =  0  Then '' full week
        
            For Each arrID In idArray
                If arrID.Value =  0  Then
                Else
                        For Each srcID In idSourceRange
                            If arrID.Value = srcID.Value Then
                               
                               srcID.Offset( 0 ,  4 ).Value = arrID.Offset(- 1 ,  7 ).Value
                               srcID.Offset( 0 ,  5 ).Value = arrID.Offset( 0 ,  7 ).Value
                               srcID.Offset( 0 ,  6 ).Value = arrID.Offset( 1 ,  7 ).Value
                               srcID.Offset( 0 ,  7 ).Value = arrID.Offset( 2 ,  7 ).Value
                               srcID.Offset( 0 ,  8 ).Value = arrID.Offset( 3 ,  7 ).Value
                                                
                            End If
                        Next
        
               End If
        Next
        
       Else