Public Sub ProcMain()
Const STARTROW As Long =  3 
Const ENDROW As Long =  5 
Const CLASS_COUNT As Long =  3 

Dim iR As Range
Dim iClass As Long
Dim CurrentRow As Long

CurrentRow =  10 
For Each iR In Range("A" & STARTROW & ":A" & ENDROW)   
    
    For iClass =  1  To CLASS_COUNT
        Range("A" & CurrentRow).Value = iR.Value
        Range("B" & CurrentRow).Value = iR.Offset( 0 ,  1 ).Value
        Range("C" & CurrentRow).Value = iClass
        Range(iR.Offset( 0 ,  2  +  4  * (iClass -  1 )), iR.Offset( 0 ,  5  +  4  * (iClass -  1 ))).Copy
        Range("D" & CurrentRow).PasteSpecial xlPasteAll
        CurrentRow = CurrentRow +  1 
    Next iClass
Next iR
Application.CutCopyMode = False
End Sub