Sub Err()
    On Error GoTo ErrorHandler
        For i = 1 To 8
            Cells(i, 3) = Cells(i, 1) * 2
        Next i
        For i = 1 To 8
            Cells(i, 4) = Mid(Cells(i, 2), 2, 2) * 3
        Next i
    Exit Sub
ErrorHandler:
    On Error Resume Next
        ActiveCell.Interior.ColorIndex = 46
        MsgBox "Количество ошибок .......", vbCritical
        MsgBox "Ячейки с ошибками .......", vbCritical
    Resume
End Sub

Private Sub Replace_Latin_to_Russian()
    Eng = "ABEKMHOPCTYXBabekmhopctyxbr"
    Rus = "АВЕКМНОРСТУХЬавекмнорстухьг"
      
    For Each cell In ActiveSheet.UsedRange
        If cell <> "" Then
            For i = 1 To Len(cell)
                c1 = Mid(cell, i, 1)
                If c1 Like "[" & Eng & "]" Then
                    z = z + 1
                    c2 = Mid(Rus, InStr(1, Eng, c1), 1)
                    cell.Value = Replace(cell, c1, c2)
                End If
            Next i
        End If
    Next cell
Msgbox ("Количество замен: " & z)
'Msgbox ("Количество замен по символам: " ) ???
End Sub

For i = 2 To y
    If LCase(InStr(Cells(i, 1), "стол") Then

Columns("A:D").Insert

Application.ActiveSheet.Columns("A:D").Insert

Sub ChangeSystemSeparatorStyle()
'переключает системный разделитель с точки на запятую и наоборот
    If Application.UseSystemSeparators = True Then
        Application.DecimalSeparator = "."
        Application.UseSystemSeparators = False
        MsgBox ("Системный разделитель - точка")
    Else
        Application.UseSystemSeparators = True
        MsgBox ("Системный разделитель - запятая")
    End If
End Sub