Sub ŒvŽZ()
  
    Range("D3:G10").ClearContents
    
    intRow = Range("B3").End(xlDown).Row
    intP = intRow - 2
    H = 4
    
    K = intP \ 8
    M = intP Mod 8
    
    For i = 1 To K
       Range("B" & 3 + 8 * (i - 1) & ":" & "B" & 2 + (8 * i)).Select
       Selection.Copy
       Cells(3, H).Select
       Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       Application.CutCopyMode = False
       
       H = H + 1
    Next
    
    If M > 0 Then
'       Range("B" & 3 + 8 * (i - 1) & ":" & "B" & intRow).Select
       Range("B" & 3 + 8 * (i - 1) & ":B" & 2 + 8 * (i - 1) + M).Select
       
       Selection.Copy
       Cells(3, H).Select
       Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       Application.CutCopyMode = False
    End If
    
    Range("C2").Select
    
End Sub