копировать и вставлять данные диапазона столько раз, сколько есть заголовков с именами, начинающимися с "X"

Хорошо, я нашел решение! Еще раз спасибо Сиддхарт и Кристофер, ваши ответы очень помогли мне подумать дальше... Вот решение, которое сработало очень хорошо! Я использовал ответ в предыдущем посте, который я сделал здесь: ссылка и добавил однострочный код, чтобы вставить столько раз, сколько диапазон данных, как «Суммы в долларах США», был найден на предыдущем листе.

Еще раз извините за эти недоразумения. Надеюсь, что мой ответ поможет вам и другим нуждающимся пользователям! Вот он;

Sub Sample()
   Dim wsInput As Worksheet
   Dim wsOutput As Worksheet
   Dim lRowInput As Long
   Dim lRowOutput As Long
   Dim lCol As Long
   Dim i As Long
   Dim Col As String
   
   '~~> Set your sheets here
   Set wsInput = Sheets("Amounts")
   Set wsOutput = Sheets("Pasted Amounts")
   
   With wsInput
       '~~> Find last column in Row 2
       lCol = .Cells(2, .Columns.Count).End(xlToLeft).Column
       
       '~~> Loop through columns
       For i = 1 To lCol
           '~~> Check for your criteria
           If .Cells(2, i).Value2 Like "Amount in functional currency*" Then
               '~~> Get column name
               Col = Split(.Cells(, i).Address, "$")(1)
               
               '~~> Get the last row in that column
               lRowInput = .Range(Col & .Rows.Count).End(xlUp).Row
               
               '~~> Find the next row to write to
               If lRowOutput = 0 Then
                   lRowOutput = 2
               Else
                   lRowOutput = wsOutput.Range("A" & wsOutput.Rows.Count).End(xlUp).Row + 1
               End If
               
               '~~> Copy the datas ( for each column where Amounts in USD was found)
               .Range(Col & "3:" & Col & lRowInput).Copy _
               wsOutput.Range("A" & lRowOutput)

               ~~> SOLUTION BELLOW-Copy the variable data range ("C3") 
                Worksheets("Amounts").Activate
               .Range("C3", Range("C3").End(xlDown)).Copy wsOutput.Range("F" & lRowOutput)
           End If
       Next i
   End With
End Sub

Мидо