Sub mrshkei()
Dim arr, i As Long, col As Long, arr2, cell
lr = Worksheets("Form Responses 1").Cells(Rows.Count, 1).End(xlUp).Row
lcol = Worksheets("Form Responses 1").Cells(1, Columns.Count).End(xlToLeft).Column
arr2 = Worksheets("СВОД").Range("A1:H1")
ReDim arr(1 To lr - 1, 1 To 8)
For i = 2 To lr
    For n = LBound(arr2) To UBound(arr2, 2)
        For col = 1 To lcol
            If Worksheets("Form Responses 1").Cells(i, col) <> "" And Worksheets("Form Responses 1").Cells(1, col) = arr2(1, n) Then
                arr(i - 1, n) = Worksheets("Form Responses 1").Cells(i, col)
                Exit For
            End If
        Next col
    Next n
Next i
Worksheets("СВОД").Range("A2").Resize(UBound(arr), 8) = arr
End Sub