В столбец F (Расход) ничего не вписывается через userform, а ошибку не выносит

'Кнопка ОК на форме Продажа товара
 
Private Sub CommandButton1_Click()
 
Dim i As Integer
 
Dim j As Integer
 
Dim k As Integer
 
Dim m As Integer
 
Dim t As Integer
 
Dim MyValue1 As Variant
 
Dim MyValue2 As Variant
 
Dim MyValue3 As Variant
 
Dim MyValue4 As Variant
 
Макрос3
 
 
MyValue1 = ComboBox1.Text
 
For i = 2 To R
 
If MyValue1 = Лист2.Cells(i, 3).Value Then
 
Макрос3
 
End If
 
Next
 
MyValue2 = ComboBox2.Text
 
For j = 2 To R
 
If MyValue2 = Лист2.Cells(j, 3).Value Then
 
Макрос3
 
End If
 
Next
 
MyValue3 = ComboBox3.Text
 
For k = 2 To R
 
If MyValue3 = Лист2.Cells(i, 3).Value Then
 
Макрос3
 
End If
 
Next
 
MyValue4 = ComboBox4.Text
 
For m = 2 To R
 
If MyValue4 = Лист2.Cells(i, 3).Value Then
 
Макрос3
 
End If
 
Next
 
 
UserForm4.Hide
 
Лист2.Activate
 
End Sub
 
'Кнопка Отмена на форме Продажа товара
 
Private Sub CommandButton2_Click()
 
 
UserForm4.Hide
 
Лист1.Activate
 
End Sub
 
 
'Макрос3
 
Public RS As Integer
 
Public Sub Макрос3()
 
ActiveWindow.ScrollWorkbookTabs Sheets:=1
 
Sheets("Склад").Select
 
For i = 1 To LastRow
    If Cells(i, "F") = "" Then
    If Cells(i, "F").SpecialCell(xlCellTypeVisible) Then
    Cells(i, "F").Value = "Расход"
    End If
    End If
    Next i
 
RS = ActiveCell.CurrentRegion.Rows.Count
 
End Sub

Cells(i, "F").Value = "Расход"