Pytanie co bardziej wydajne i szybsze (1 czy 2) lub możne jest jakiś inny sposób.
Range(Cells(1,1), Cells(1, 2).Select
With Selection
.MergeCells = True
.ColumnWidth = 18
.Font.Size = 8
End With
ActiveCell.FormulaR1C1 = "ble ble"
Range(Cells(1,1), Cells(1, 2).MergeCells = True
Range(Cells(1,1), Cells(1, 2).ColumnWidth = 18
Range(Cells(1,1), Cells(1, 2).Font.Size = 8
Range(Cells(1,1), Cells(1, 2).Value = "ble ble"