Sub test()

Dim address, name As String
Dim count, c_max, i As Integer

On Error GoTo EndIteration

Application.ScreenUpdating = False
Application.DisplayAlerts = False

count = 0
c_max = Range("max_count").Value

For i = 0 To c_max

    Range("count").Value = count

    address = Range("D_address").Value
    name = Range("F_name").Value

    Workbooks.Open Filename:=address

        ActiveWindow.Visible = True
        ActiveWorkbook.SaveAs Filename:= _
            "C:\Users\GalachyanKG\Desktop\Проекты\Diesel\" & name, _
            FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
        ActiveWindow.Close
        
EndIteration:

count = count + 1
Range("count").Value = count

If Range("w_day").Value = 6 Then
    count = count + 2
    c_max = c_max - 2
End If

If i >= c_max Then Exit For
    
Next i

Range("count").Value = 0

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub