Excel VBA найти столбец с определенным значением и скопировать значения ниже

Question

Я все еще не мог понять, как я могу сделать ниже, несмотря на многочисленные попытки.

Я пытаюсь

1. Поиск определенного текста / значения в диапазоне заголовков различных рабочие листы (определенный текст / значение из другого рабочего листа "БД")
2. Когда заголовок с этим значением найден, скопируйте все данные ниже этого заголовка и вставьте его как значение в тот же столбец
3. Скопируйте формулу, которая составляет 1 столбец справа от столбца с соответствующим заголовком, и скопируйте эту ячейку в последнюю строку определенного столбца. столбец этой соответствующей таблицы (например, если заголовок с значение найдено на H11, скопируйте формулу I12 и вставьте до последнего строка A в столбце I)
4. Повторите это для всех заголовков в диапазоне различных рабочих листов

У меня есть следующее, и хотя я могу достичь # 1, у меня, похоже, были проблемы с выбором правильной клетки. Любая помощь будет оценена!

Dim period As String
Dim ws As Worksheet
Dim rng As Range

period = Worksheets("DB").Range("A1")

For Each ws In ThisWorkbook.Sheets
    Select Case ws.Name
    Case "Total", "PH4", "Product"
        With ws
            For Each rng In .Range("G11:Z11")
                If rng.Value = period Then

                    'Change the data below the header into values
                    Range(rng.Column & "12:" & rng.Column & .Cells(Rows.Count, "C").End(xlUp).Row).Value = Value

                    'copy formula on the right
                    Range(rng.Column + 1 & "12").Copy
                    Range(rng.Column + 1 & "12:" & rng.Column + 1 & .Cells(Rows.Count, "C").End(xlUp).Row).PasteSpecial xlPasteFormulas

                    Exit For
                End If
            Next rng
        End With
    End Select
Next ws