Just an alternative:

Public Sub Macro2()
With ActiveCell.Resize(1, 2)
.Value = Array("text1","text2")
.Copy
End With
End Sub

In article ,
"Bob Phillips" wrote:

Sub Macro1()
With ActiveCell
.Value = "text1"
.Offset(0, 1) = "text2"
.Resize(1, 2).Copy
End With
End Sub