Из трех листов перенести строки по условию

[Romuald]

Всем добрый день!
подскажите, пожалуйста, как макросом перенести строки(начиная с колонок ''С'' т.е (C:H) из трех листов , только в которых в колонках Н стоит валюта, в лист OTCET ?
Заранее благодарю

[EducatedFool]

Вот весь код:

Sub Очистка()
    Application.ScreenUpdating = False: Me.[6:6000].Clear
End Sub

Sub СборДанных()
    Application.ScreenUpdating = False: On Error Resume Next
    Dim sh As Worksheet, r As Range, ra As Range
    For Each sh In ThisWorkbook.Worksheets
        If sh.Name <> Me.Name Then
            Set r = sh.Range("h:h").SpecialCells(xlCellTypeConstants)
            If Not r Is Nothing Then
                Set ra = Intersect(r.EntireRow, sh.Range("c:h"))
                ra.Copy
                Me.Range("a65000").End(xlUp).Offset(1).PasteSpecial xlPasteValues
            End If
        End If
    Next sh
    Me.UsedRange.EntireColumn.AutoFit: Me.[a1].Select
    Application.CutCopyMode = False
End Sub

Пример во вложении:

[Romuald]

EducatedFull!!
Спасибо большое!
А можно сделать применение макроса Сбор данных только для листов '' Maersk EUR,
Maersk LVL,Maersk USD'' ?
Дочка очень просит в листе OTCET во еще какую таблицу отчета т.е подбить данные
Посмотрите, пожалуйста

[EducatedFool]

Дочка очень просит в листе OTCET во еще какую таблицу отчета т.е подбить данные

Для этого используйте сводную таблицу.
Сделайте её самостоятельно.

Теперь при очистке стираются только данные в диапазоне a6:g6000

Me.[a6:g6000].ClearContents

То есть сводная таблица затронута не будет.
(я не умею создавать сводные таблицы, но знаю, что это делается просто и быстро)

А можно сделать применение макроса Сбор данных только для листов '' Maersk EUR,
Maersk LVL,Maersk USD'' ?

Обрабатываются только листы, в названии которых прсутствует текст Maersk

If sh.Name Like "*Maersk*" Then