Rows("1:9").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=30
Range("A39").Select
Selection.Insert Shift:=xlDown