¿Cómo aplicar formato a celdas cuando el nombre del artículo es más largo? (DAM)

Para cada fila en el formato hay que hacer lo siguiente:

    For i = 2 To h3.Range("B" & Rows.Count).End(xlUp).Row
        ajustarfila h3.Range("B" & i & ":F" & i)
    Next

La rutina ajustarfila

Sub ajustarfila(rngRango As Range)
'Por.Dante Amor
    For n = 1 To rngRango.Columns.Count
        sngAnchoTotal = sngAnchoTotal + rngRango.Cells(1, n).ColumnWidth
    Next n
    With rngRango.Cells(1, 1)
        sngAnchoCelda = .ColumnWidth
        .MergeCells = False
        .ColumnWidth = sngAnchoTotal
        .WrapText = True
        rngRango.Parent.Rows(rngRango.Row).AutoFit
        sngAlto = .RowHeight
    End With
    With rngRango
        .Merge
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlTop
        .Columns(1).EntireColumn.ColumnWidth = sngAnchoCelda
        .Columns(1).RowHeight = sngAlto
    End With
End Sub