Sub Macro1()
    Worksheets(1).Activate
    Call PutData()
    Range("A1:B2").Copy Range("A5")
    Range("B5").Cut range("B8")
    Range("A6").Cut range("A9")
    Worksheets(1).Range("A1:B2").Copy Worksheets(2).Range("A1")
End Sub

Sub PutData()
    ActiveSheet.UsedRange.Clear
    Range("A1:B1").Value = Array("ice", "water")
    Range("A2:B2").Value = Array("rain", "snow")
End Sub
