Copy text to cell from another sheet

[jolivanes]

Assumes that you have headers in both sheets.

Sub Maybe()
Dim lr As Long, i As Long, a
lr = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
a = Sheets("Sheet2").Range("A2:C" & lr).Value
    For i = LBound(a) To UBound(a)
        With Sheets("Sheet1").Cells(i + 1, 4)
            .Value = a(i, 1)
            .Offset(, 1).Value = a(i, 2) & " " & a(i, 3)
        End With
    Next i
End Sub