Sub F()
    Dim str$, iPos%
    str = "Алла Пугачева - Первая любовь"
    iPos = InStr(1, str, "-")
    Mid$(str, 1, iPos) = UCase(Mid$(str, 1, iPos))
    MsgBox str
End Sub

Sub RRR()
    Dim r&, str$, iPos%
    For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        str = Cells(r, 1).Value
        iPos = InStr(1, str, "-")
        Mid$(str, 1, iPos) = UCase(Mid$(str, 1, iPos))
        Cells(r, 2).Value = str
    Next
End Sub

Sub Прописные()

    Dim arr1(), arr2(), varStr As String
    Dim lngInStr As Long, lr As Long, i As Long
    
    Application.ScreenUpdating = False
    
    Columns("B").ClearContents
    
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    If lr = 1 Then
        ReDim arr(1 To 1, 1 To 1)
        arr1(1, 1) = Range("A1").Value
    Else
        arr1() = Range("A1").Resize(lr).Value
    End If
    ReDim arr2(1 To UBound(arr1, 1), 1 To 1)
    
    For i = 1 To UBound(arr1)
        varStr = arr1(i, 1)
        lngInStr = InStr(varStr, "-")
        If lngInStr <> 0 Then
            arr2(i, 1) = UCase(Left(varStr, lngInStr - 1)) & Mid(varStr, lngInStr)
        End If
    Next
    
    Range("B1").Resize(lr).Value = arr2()
    
    Application.ScreenUpdating = True
    
    MsgBox "Готово!", vbInformation

End Sub

Sub RRR()
    Dim r&, str$, iPos%
    For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        str = Cells(r, 1).Value
        iPos = InStr(1, str, "-")
        Mid$(str, 1, iPos) = UCase(Mid$(str, 1, iPos))
        Cells(r, 2).Value = str
    Next
End Sub

Sub RRR()
    Dim r&, str$, iPos%
    For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    str = Cells(r, 1).Value
    iPos = InStr(1, str, "-")
    Mid$(str, 1, iPos) = UCase(Mid$(str, 1, iPos))
    Mid$(str, iPos) = Application.Proper(Mid$(str, iPos))
    Cells(r, 2).Value = str
    Next
End Sub