Metin Kırpma Sorunu

[unfors]

DESKTOP-61U5295             18.12.2017 20:57:31         DENEME_01   2.168 ADET

şeklinde A1 hücresinde bulunan veriyi B1'de

18.12.2017 20:57:31

sadece tarih ve zaman kalacak şekilde makro ile yazdırmak istiyorum. Tarih ve saat hariç diğer kelimeler arasındaki boşluklar değişken olabiliyor.

Dim lSpace As Long
Dim strName As String

Cell_Name = Range("a1").Value

strName = Trim(Cell_Name)
     
    lSpace = InStr(1, strName, " ", vbTextCompare)
     
   Range("a2") = Trim(Right(strName, Len(strName) - lSpace))
 
   
   Range("b1") = Trim(Left(Range("b1"), lSpace))
End Sub

Bu şekilde bir kod oluşturdum yalnız boşluklar değiştiğinde doğru çalışmıyor

AKJDPC06      4.12.2017 08:32:26          DENEME_01   2.168 ADET

olduğu gibi

 

[askm]

Örnek dosya ile olması gereken halini de belirterek eklerseniz yardımcı olmaya çalışalım.