[Iska]

Примерно так:

Код:

Sub Sample2()
    Dim objWorksheet As Worksheet
    
    Dim i As Long
    Dim elem As Variant
    
    
    Set objWorksheet = ThisWorkbook.Sheets.Item("Лист1")
    
    With Application.Workbooks.Open("E:\Песочница\0172\исходный.xls")
        objWorksheet.Range("A4").Value = .Names.Item("TTNNum").RefersToRange.Value
        
        i = 1
        
        For Each elem In Split(.Sheets.Item("сторона 1").Range("L9").Value, "x")
            objWorksheet.Range("F4").Item(1, i).Value = CLng(elem) / 1000
            
            i = i + 1
        Next
        
        .Close
    End With
    
    Set objWorksheet = Nothing
End Sub

есть запись, но там ячейки объеденены, »

Тут сие роли не играет, поскольку мы просто берём значение из ячейки. Обращаемся к диапазону по имени («TTNNum»).

есть ячейка там указаны размеры например 100Х300Х100 (указаны в см) можно ли при импорте разбить эти данные в три разные ячейки и перевести их в метры. »

Насколько я понимаю — либо размеры в мм (а не в см), либо пример Вы привели неверный. Аналогично — читаем значение ячейки по адресу, разбиваем по символу «x» в массив, затем заполняем целевые ячейки, просто перебирая элементы массива.