code การ autofill ใน vba

ถ้าผมต้องการทำ autofill ตามค่าในตัวแปรต้องเขียน code ยังไงครับ    
ถ้าต้องการ autofill A2 B2 C2 D2 ลงมา x ช่อง (สมมุติ x= 10)

Range("A2 : D2").Select
Selection.AutoFill Destination:=Range("A2 : D10")

ผมจะใส่ตัวแปรกับ D10 ยังไงครับ  
ลองแบบนี้แล้วไม่ได้  A2 : D[x]