Sub Eslam_Abdullah()
Dim lr&, lc%, i%
lr = Application.Max(Cells(Rows.Count, 1).End(xlUp).Row, 6) - 5
lc = Application.Max(Cells(4, Columns.Count).End(xlToLeft).Column)
    For i = 6 To lc
        If Application.Text(Cells(4, i).Value, "[$-en-US]dddd") = "Friday" Or Application.Text(Cells(4, i).Value, "[$-en-US]dddd") = "Saturday" Then _
            Cells(6, i).Resize(lr).Value = Cells(6, i).Offset(, -1).Resize(lr).Value
    Next i
End Sub