Sub Macro1()
destination_sheet = "copy"
row_index = 1
For Each sh In Sheets
If sh.Name <> destination_sheet Then
    sh.Activate
    Range("B7, B8").Copy Destination:=Sheets(destination_sheet).Cells(row_index, 1)
    row_index = row_index + 20
End If
Next sh
Sheets(destination_sheet).Activate
End Sub