Merging Two Columns into a Third Column in Excel

Sub Macro1()

Dim lctemp As String

'Concatenate Columns 1 and 2 to column 3
Range(Sheet1.Cells(2, 3), Sheet1.Cells(2, 3)).Value = Range(Sheet1.Cells(2, 1), Sheet1.Cells(2, 1)).Value  & Range(Sheet1.Cells(2, 2), Sheet1.Cells(2, 2)).Value

End Sub