Loop bestemte steder i ark

Hej

Jeg forsøger at lave et loop. Jeg har to sheets (sheet1 og sheet2). i sheet1 står der tal i colonne A og B, tallet i colonne B skal trækkes fra tallet i colonne A. Dette skal angives som en formel i Sheet2 (så udregning/resultat kommer i sheet2). Derudover skal dette kopieres ned igennem 5 rows og hoppe en row over og forsætte igennem hele arket indtil lastrow.

I nedenstående kan i se noget af det jeg har lavet. Her har jeg dog lavet formlen i den første cell i sheet2 og trækker den.  Håber i kan forstå hvad jeg mener.

Sub kopierformler()

Range("d5").Activate

Do Until ActiveCell.Row >= Cells.SpecialCells(xlCellTypeLastCell).Row
Selection.AutoFill Destination:=Range("D5:D8"), Type:=xlFillDefault
Selection.Copy
Range("d8").Activate
ActiveCell.Offset(2, 0).Activate

Loop
End Sub