Sub Conv()
     myConv "K:L", "General"
     myConv "E:E", "General"
     myConv "B:B", "dd/mm"
     myConv "G:G", "General"
     myConv "M:M", "General"
End Sub

Sub myConv(DIAPAZON As String, myFORMAT As String)
    With Range(DIAPAZON)
        .Replace ",", "."
        .Value = CDate(.Value)
        arr = .Value
        On Error Resume Next
        For i = 1 To UBound(arr, 1)
            If arr(i, 1) = 0 Then Exit For
            arr(i, 1) = CDate(arr(i, 1))
        Next
        .ClearContents
        .NumberFormat = myFORMAT
        .Value = arr
    End With
End Sub

Sub Convert_Text_to_Numbers()
    With Range("K:L")
.NumberFormat = "General"
.Value = .Value
End With
With Range("E:E")
.NumberFormat = "General Number"
.Value = .Value
End With
With Range("M:M")
.NumberFormat = "General Number"
.Value = .Value
    End With
    With Range("G:G")
        .NumberFormat = "General"
        .Value = .Value
    End With
End Sub

0