Копировать данные вставки на основе ввода пользовательской формы

Question

Привет и заранее спасибо. Я изучаю excel-vba в течение последних двух недель, чтобы выполнить задание, данное моим начальником, и у меня возникла проблема, которую я не знаю, как ее решить.

У меня есть одна рабочая книга, которая содержит набор данных о продукте. импортировано из MS Access, и эта книга содержит форму пользователя. Через пользователя пользовательской формы можно искать нужные данные на основе критериев пользовательской формы и затем вставлять их в целевую рабочую книгу. В исходной книге заголовок находится в 3-й строке.

Исходная рабочая тетрадь содержит все проведенные тесты. Существует 2 типа теста до и после данных. Отправьте данные, используя то же название продукта, которое использовалось в данных предварительного тестирования, чтобы проверить результат.

Моя проблема:

1. У меня есть код для копирования и вставки данных из исходной книги в целевую книгу, но я не знаю, как установить заголовок программно, заголовок содержит почти 54столбец, и я хочу исключить столбец 1,3,4,5,6,7,8,9.

2. Как я упоминал ранее, чтобы проверить результат, данные сообщения могут бытьпроведено более 2 раз, мне нужно получить последние данные и удалить дубликаты почтовых данных. а также мне нужно подсчитать, сколько проведенных пост-тестов включало удаленные данные.

Мой код

        For x = 0 To Me.LineCheckBox.ListCount - 1 'Count the listbox item
            If LineCheckBox.Selected(x) = True Then 'check item selected on the listbox
                For i = 1 To LastRow
                    Set rwSrc = SourceSheet.Rows(i)
                    If rwSrc.Cells(4).Value = Fab Then 
                        If rwSrc.Cells(5).Value = LineCheckBox.List(x) Then 'check selected item with cell value
                            If rwSrc.Cells(6).Value = Year Then
                                If rwSrc.Cells(7).Value = WW Then
                                    If rwSrc.Cells(9).Value = Test Then
                                        erow = DestSheet.Cells(DestSheet.Rows.Count, 1).End(xlUp).Offset(1, 0).Row
                                        With DestSheet.Rows(erow) 
                                            'set the header which I dont how
                                            'Defined pre and post data which I dont know
                                            .Cells(1).Value = rwSrc.Cells(2).Value
                                            .Cells(2).Resize(1, 54) = rwSrc.Cells(10).Resize(1,
54).Value
                                        End With 
                                    End If
                                End If
                            End If
                        End If
                    End If
                Next i
            End If
        Next x
    End If

Мой вывод пока

Мой желаемый вывод

Пожалуйста, дайте мне знать, если то, что я пытаюсь сделать, невозможно