Как правильно разместить «Конец» и «Далее» в VBA

Question

Это продолжение предыдущего вопроса.Я пытаюсь создать макрос копирования / вставки, включающий раскрывающийся список на одной вкладке и суффиксы на другой.Я хочу, чтобы макрос (по порядку) 1 вставил значение в раскрывающуюся вкладку и позволил формулам вычислить.2 перейдите на другую вкладку и вставьте соответствующую строку в качестве значений.3 повторите 1-2 для следующего выпадающего значения

Является ли конец с / следующим в правильном месте для макроса, чтобы сделать то, что мне нужно?

Sub Copy_Paste()
Sheets("MS Wall Summary Weekly View").Activate
    Dim vRws As Long, vRng As Range
    Dim d As Range, d8 As Range, Wst As Worksheet
    Dim vRng2 As Range, vRws2 As Long, i As Long

Set Wst = Worksheets("MS Wall Summary Weekly View")
Set d8 = Wst.Range("D8")

With Wst
   vRws = .Cells(.Rows.Count, "A").End(x1Up).Row
    Set vRng = Range(.Cells(2, "A"), .Cells(vRws, "A"))

For Each d In vRng.Cells

d8 = d
Sheets("Email").Activate
With ActiveSheet
    vRws2 = .Cells(.Rows.Count, "U").End(x1Up).Row
    For i = 8 To vRws2
        Set vRng2 = .Range(.Cells(i, "U"), .Cells(i, "AC"))
            vRng2.Copy
                vRng2.PasteSpecial Paste:=xlPasteValues

Next d
   Next i
End With
End With

Первое изображение соответствуетпервая часть макроса.Раскрывающийся список - полковник А, и он подключается к D8

Это второе изображение находится на "вкладке электронной почты".Суммы основаны на ячейке D8 в первой вкладке.Я хочу, чтобы одна строка начиналась в U8: AC8 вставляется как значение.