Sub ConvertDimensions()
    Dim lastRow As Long
    Dim i As Long
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row ' Assuming ASIN is in column A
    
    For i = 2 To lastRow ' Starting from row 2 to skip headers
        If Cells(i, 3).Value = "inches" Then
            Cells(i, 4).Value = Round(Cells(i, 4).Value * 2.54, 1) ' Convert and round length
            Cells(i, 6).Value = Round(Cells(i, 6).Value * 2.54, 1) ' Convert and round width
            Cells(i, 8).Value = Round(Cells(i, 8).Value * 2.54, 1) ' Convert and round height
            
            Cells(i, 3).Value = "centimeters" ' Update units
        End If
        
        ' Concatenate the values into the desired format
        Cells(i, 9).Value = Cells(i, 4).Value & " x " & Cells(i, 6).Value & " x " & Cells(i, 8).Value & " " & Cells(i, 3).Value
    Next i
End Sub