Sub Суды()
ii = 1
For i = 2 To 100
Range(«B» & i).Select
Start = Selection.Row
Ends = Selection.Rows.Count
If i Mod 3 = 0 Or i Mod 4 = 0 Or i Mod 5 = 0 Then
ii = ii + 1
Range(«F» & ii) = Range(«C» & Start).Value
Range(«G» & ii) = «н/д»
Range(«H» & ii) = Range(«B» & Start).Value
Range(«i» & ii) = Range(«C» & Start + 1).Value
Range(«J» & ii) = Range(«D» & Start).Value
Range(«K» & ii) = Range(«C» & Start + 2).Value
i = Start + Ends — 1
End If
‘Debug.Print Selection.Column + Selection.Columns.Count — 1 ‘КОЛ-ВО столбцов объединено
Next i
End Sub