MS Excel

Teď jsem to zkoušel, funguje výborně...Děkuji
No mě zajímalo zda to jde a zda nad tím nějak laborovat, protože co se týká kódů tak spíše hledám co bych mohl použít tady z fóra a pak jen přizpůsobit pro své potřeby...učím se na tom, ale sám bych to ještě nedal.
Ještě tu mám jeden problémek se kterým bych chtěl pomoci našel jsem níže uvedený kód a potřeboval bych jej upravit. Zatím funguje tak, že v daném rozmezí skryje prázdné řádky. Já bych potřeboval, aby tento kód našel od př 10 řádku ve sloupci B poslední obsazenou buňku (nelze předem definovat kolik bude obsazených řádků) a pokud mezi bude prázdná buňka tak aby se vymazal řádek....je to to rovněž reálné?

Private Sub CommandButton2_Click()
Dim rRowsToHide As Range
Dim i As Integer
For i = 373 To 24 Step -1
If IsEmpty(Cells(i, 3)) And IsEmpty(Cells(i - 1, 3)) Then
If rRowsToHide Is Nothing Then
Set rRowsToHide = Cells(i, 3)
Else
Set rRowsToHide = Union(rRowsToHide, Cells(i, 3))
End If
Else
Exit For
End If
Next

If Not rRowsToHide Is Nothing Then
rRowsToHide.EntireRow.Hidden = True
End If

Set rRowsToHide = Nothing

End Sub

Tak jsem si s tím pohrál a bohužel bez uspěchu....metoda pokus omyl selhala:-)
Můžu tě poprosit o celé znění toho kódu?

@pavlus
Poslední obsazený řádek lze nalézt např. takto.
P.

Př.:
posledni_obsazeny_radek = ActiveSheet.Range("b1048576").End(xlUp).Row
Ak má excel 2003, tak to fungovať nebude.
dal by som toto.

posledni_obsazeny_radek =ActiveSheet.Cells(ActiveSheet.Range("b:b").Cells.Count, 2).End(xlUp).Row

to Petrden:
Tak jsem si s tím pohrál a bohužel bez uspěchu....metoda pokus omyl selhala:-)

už se nedivím , ten kod nefunguje tak, jak by měl.
A jelikož píšeš, že Ti to nějak furt nejde , tak přikládám tvůj upravený a doplněný o skrytí nevyužité části tabulky.

Veď si daj nahrávanie makra.

Rows("6:15").Select
Selection.Insert Shift:=x1Down, CopyOrigin:=xlFormatFromLeftOrAbove