makro da tekrarlanan kodları kısaltmak

[fairs05]

Ekteki dosyada yazmış olduğum makro, ilk 3 tip için çalışıyor. Ancak tip sayısı arttığı zaman, yazdığım kodu kopyalamak yerine, daha pratik bir şekilde, tip sayısı kadar çalıştırmak mumkun mu?
Diğer bir deyişle,
ActiveCell.FormulaR1C1 = "=R[-4]C[8]"
Range("B14").Select
ActiveCell.FormulaR1C1 = "=R[-5]C[9]"
Range("B15").Select
ActiveCell.FormulaR1C1 = "=R[-6]C[10]"
Range("E6").Select
Selection.Copy
Range("M9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G6").Select
Application.CutCopyMode = False
Selection.Copy
Range("N9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
bölümünü tip sayısı kadar kopyalamayıp, daha basit bir şekilde nasıl yazabilirim?