Dim SrcRng As Worksheet
Dim DestRng As Worksheet
Set SrcRng = Workbooks("2.xls").Sheets("Sheet1")
Set DestRng = Workbooks("1.xls").Sheets("Sheet1")
For i = 19 To Range("A" & Rows.Count).End(xlUp).Row
SrcRng.Cells(i, 1).Copy Destination:=DestRng.Cells(i - 18, 1)
SrcRng.Cells(i, 2).Copy Destination:=DestRng.Cells(i - 18, 5)
SrcRng.Cells(i, 3).Copy Destination:=DestRng.Cells(i - 18, 6)
SrcRng.Cells(i, 13).Copy Destination:=DestRng.Cells(i - 18, 3)
SrcRng.Cells(i, 14).Copy Destination:=DestRng.Cells(i - 18, 4)
Next i