Sub CreateMountingSheetForKaskad()
    Application.ScreenUpdating = False
    
    Dim sht1 As Object, i As Integer
    
    Set sht1 = Sheets("Каскад")
    
    Dim LName As String
    LName = "МВ"
    On Error Resume Next
    If Sheets(LName) Is Nothing Then
        Sheets.Add(After:=Sheets(Sheets.Count)).Name = LName
        Sheets(LName).Activate
    End If
    
    If Not (sht1 Is Nothing) Then
        sht1.Cells.Columns(4).Copy Sheets(LName).Cells(5)
        For i = 1 To sht1.Cells.Columns(4).Count
            Cells(1, i) = i
        Next i
    Else
        MsgBox ("Лист Каскад не найден")
    End If
    
    Application.ScreenUpdating = True
    
End Sub