need help wiht VBA code inseting row value from sheet1 to sheet2 with repeat function?

Hi

I have excel with sheet1 and sheet2 (image and excel attached) for better understanding
Sheet1 have column D & F with some input values
In sheet2 column A (Row 1 to 6) the in already mentioned value come default
Row 7 value comes from Sheet1 D1
Row 8 value comes form sheet1 F1
row 9 value comes from sheet1 F1
row 10 values come default
Row 11 value comes from Sheet1 D2
Row 12 value comes form sheet1 F2
row 13 value comes from sheet1 F2
row 14 values come default

its function should repeat entire column D &F of sheet1
test3.PNGtest4.PNG

Hi its not working
exactly my requirement is sheet 1 have value in column D&F, using that value I want to make the output sheet2 column A
image attached for reference
Attachment 735709

my excepted output in image file.

hi its working fine thanks a lot....