Try
Code:
Sub TextToDMY()
    
    With Sheets("Imported Assets")
        With .Range("G2:G" & .Cells(Rows.Count, "G").End(xlUp).Row)
                .TextToColumns Destination:=.Cells(1), _
                DataType:=1, TextQualifier:=1, _
                ConsecutiveDelimiter:=False, Tab:=True, _
                Semicolon:=False, Comma:=False, _
                Space:=False, Other:=False, FieldInfo:=Array(1, 4), _
                TrailingMinusNumbers:=True
        End With
    End With
    
End Sub