Doğru anladıysam alttaki kod olması gerek.

Sub SaatTarh()

    Dim aranan, parca, parca1, i As Long, son As Long

    

    Range("L3:L" & Rows.Count).ClearContents

    son = Range("A" & Rows.Count).End(3).Row

    If son < 3 Then son = 3

    

    For i = 3 To son

        aranan = Range("B" & i).Value

        parca = Replace(Mid(aranan, InStr(1, aranan, " ") + 1, 8), ".", ":")

        If InStr(1, aranan, "AM") > 0 Then

            parca1 = (12 + Left(parca, 2) + 0) & Mid(parca, 3, 8)

        Else

            parca1 = parca

        End If

        Range("L" & i).Value = Mid(aranan, 1, InStr(1, aranan, " ") - 1) & " " & parca1

    Next

    Range("L4:L1048576").NumberFormat = "dd.mm.yyyy hh:mm:ss"

End Sub