ciao
da inserire in un modulo standar
Option Explicit
Sub riportatabelle()
Dim i As Long, Nsh As Long, Sh As Long
Dim Nriga As Long
Nriga = 4
Nsh = Worksheets.Count
Sheets("Riepilogo").Range("B4:E100").ClearContents
For Sh = 1 To Nsh
If Sheets(Sh).Name <> "Riepilogo" Then
For i = 10 To 15
If Sheets(Sh).Cells(i, 6) <> "" Then
Sheets(Sh).Range("F" & i & ":I" & i).Copy Destination:=Sheets("Riepilogo"). _
Range("B" & Nriga)
Nriga = Nriga + 1
End If
Next i
End If
Next Sh
End Sub
riallego il tuo file con inserita questa
Ciao da locate
excel 2007 / 13