riporta valori cella a fianco con con step di 5 righe

---

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If IsEmpty(Target) Then Exit Sub
If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
Dim Nrig As Long, i As Long
Dim Stringa As String
Stringa = ""
Application.EnableEvents = False
Nrig = (Target - 1) * 8 + 10
''Range("D1") = Nrig
For i = 1 To 3
Stringa = Stringa & Cells(Nrig, "B") & " " & Cells(Nrig, "D") & " " _
& Cells(Nrig, "F") & " " & Cells(Nrig, "H") & Chr(10)
Nrig = Nrig + 1
Next i
Range("A1") = Stringa
Application.EnableEvents = True
End Sub

---

---

Option Explicit
Private Sub worksheet_beforedoubleclick(ByVal target As Range, cancel As Boolean)
Dim i As Long
On Error Resume Next
For i = 10 To 5000 Step 8
If Not Intersect(target, Range("C" & i & ":C" & i + 2 & ",E" & i & ":E" & i + 2 & ",G" & i & ":G" & i + 2 & ",I" & i & ":I" & i + 2)) Is Nothing Then
Range("A1") = Cells(target.Row, target.Column - 1)
Exit Sub
End If
Next i
End Sub

---