Sub Macro1()
    Range("A1:E1").Value = "test"
    Range(Cells(1,1), Cells(1,5)).Font.Size = 14.0
    Range("A2").Value = "VBA, OLE, VBScript"
    Range("A2", "C2").MergeCells = True
    Range("A3:C3").Value = Array("r", "", "oq")
    Range("A4:C4").Value = Array("I", "q", "")
    Range("A3:C4").Borders.LineStyle = True
End Sub
