Range("A2:B2").Select
Selection.AutoFill Destination:=Range("A2:B17"), Type:=xlFillDefault