Ještě bych to potřeboval malinko vylepšit

- data, která potřebuji kopírovat na web, jsou ve sloupcích A až G (kam "končí práci" to makro)
- data, která nakopíruji, označím "x" v buňce H (makrem)

Makro vypadá takto:

Sub jmeno_makra()

Riad = ActiveCell.Row
Stlp = Range("A" & Riad).End(xlToRight).Column

If Range("A" & Riad) = "" Then
    MsgBox "Nekorektní řádek", vbCritical
    Exit Sub
End If

For i = 0 To Stlp - 1
        Range("A" & Riad).Offset(0, i).Copy
        MsgBox "Obsah schránky:  " & Range("A" & Riad).Offset(0, i), vbInformation
Next i

Application.CutCopyMode = False
MsgBox "Konec řádku", vbExclamation

Range("H" & Riad).Select
ActiveCell.FormulaR1C1 = "x"

End Sub

- ve sloupci I (kam už makro díky práznému sloupci H nezasáhne) mám číslo, označující kalendářní den měsíce, seřazeno vždy plynule sestupně (to nelze změnit), bez přerušení, končí to "1". Položek=řádků za den je více, takže ve sloupci I je to třeba takto:

31
31
31
31
30
30
29
29
29
26
25
25
25
atd

Potřeboval bych to makro doplnit tak, aby fokus skočil (směrem dolů) na první řádek s nižším datumem (číslem) než kde právě makro "probíhalo". Další podmínkou je, že pokud už na takovém řádku je ve sloupci H záznam "x", aby vybral nejbližší další volný řádek toho dalšího (vlastně předchozího) dne. Pokud neexistuje (pro den může existovat třeba jen jeden - nebo i žádný - záznam), přejít na další den.

Viz obrázek, jak by to mělo "chodit":

Moc děkuji za pomoc. Já to s těmi if v makrech, kdy se prohledávají postupně další a další buňky, prostě neumím...