Sorry, I misread the range definitions. Try:

Sub TransferData()
Dim r1 As Range, r2 As Range
Set r1 = Range("Data_1").Resize(2).EntireRow
Set r2 = Range("Data_1_1st_2Rows").EntireRow
r2.Value = r1.Value
End Sub

Regards,
Greg