Скопируйте данные на другой лист с помощью оператора if else logi c

Question

Я пытаюсь скопировать данные в столбцы на другом листе на основе логического оператора.

Этот оператор проверяет, равно ли значение в столбце на листе 1 «Реализация» или «Проверка».

• Если значение в ячейке в этом столбце равно «Реализация»
  • вставить значения из столбца E на Листе1 в столбец C на Листе 2.
• Если значение равно «Проверка»
  • вставить значения из столбца E на листе 1 в столбец E на листе 2.

Мой код выполняется без ошибок но ничего не делает Гугл меня больше смущает.

Вот весь мой код, соответствующий код под ним:

Sub CommandButton2_Click()

Dim ReadSheet As Worksheet
Dim WriteSheet As Worksheet

Dim TaskType As Range
Dim AssignedTo As Range
Dim ImplemAssign As Range
Dim ValidAssign As Range

'Creating variables for Worksheets for ease of use
Set ReadSheet = Worksheets("Sheet1")
Set WriteSheet = Worksheets("Sheet2")

'Task Type variable for ease of use
Set TaskType = ReadSheet.Range("D2:D1000")

'Implementation and Assignment Employee Names
Set AssignedTo = ReadSheet.Range("E2:E1000")
Set ImplemAssign = WriteSheet.Range("C2:C1000")
Set ValidAssign = WriteSheet.Range("E2:E1000")

'Clear existing data before re-writing to sheet
WriteSheet.Range("A2:E1000").Clear

'Decide if to copy based on Task Type
If TaskType.Text = "Implementation" Then
    AssignedTo.Copy
    ImplemAssign.PasteSpecial

ElseIf TaskType.Text = "Validation" Then
    AssignedTo.Copy
    ValidAssign.PasteSpecial

End If
End Sub

Соответствующий код:

'Decide if to copy based on Task Type
If TaskType.Text = "Implementation" Then
    AssignedTo.Copy
     ImplemAssign.PasteSpecial

ElseIf TaskType.Text = "Validation" Then
    AssignedTo.Copy
    ValidAssign.PasteSpecial

End If