Sub Test()
    Dim Cel As Range
    With ActiveSheet
        For Each Cel In .Range("H7", .Cells(.Rows.Count, "H").End(xlUp)).SpecialCells(xlCellTypeVisible)
            If Cel.Row > 7 Then
                Cel.Copy
                Exit For
            End If
        Next
    End With
End Sub