Option Explicit

' процедуру вставить в любой из модулей книги
' при необходимости поменять значение константы sWkSh (имя листа, который надо преобразовать)
' (!) колонки "B" и "C" не объединяются. После преобразования значений в колонке "B", колонка "C" удаляется
Sub change2()
Const sWkSh$ = "Лист1"
Dim lngA&, lngB&
Dim i%, s$, sChar$

With ThisWorkbook.Worksheets(sWkSh)

    For lngA = .UsedRange.Row +  1  To .UsedRange.Row + .UsedRange.Rows.Count -  1 
        ' в колонке "C" значение "PM"
        If .Cells(lngA,  3 ).Value2 = "PM" Then
            ' увеличить значение в колонке "B" на 12 часов
            .Cells(lngA,  2 ).Value2 = .Cells(lngA,  2 ).Value2 +  0 . 5 
        End If
        
       ' значение в колонке "F" содержит не цифры
        If .Cells(lngA,  6 ).Value2 Like "*[!0-9]*" Then
            s = ""
            For i =  1  To Len(.Cells(lngA,  6 ).Value2)
                sChar = Mid(.Cells(lngA,  6 ).Value2, i,  1 )
                If sChar Like "[0-9]" Then s = s & sChar
            Next i
            If s = "" Then lngB =  0 & Else lngB = CLng(s)
            .Cells(lngA,  6 ).Value2 = lngB
        End If

    Next lngA

    .Columns( 3 ).Delete
End With 'ThisWorkbook.Worksheets(sWkSh)

End Sub