brisanje zadnje vrstice spojenih celic

[mb]

Pozdravljeni,

kakšna je koda za makro, da bo excel zbrisal zadnjo vrstico:
(najde jo glede na kolono A - to je še OK)

Koda: Izberi vse

vrsta = (Range("A65536").End(xlUp).Row)

vendar pa so potem v kolonah B,C,D, E in F celice spojene (združene); npr. B6,B7,B8, in B9 so spojene v eno celico -> B6. S spodnjo kodo mi to ne uspe:

Koda: Izberi vse

Rows(vrsta).Select
Selection.Delete Shift:=xlUp

saj makro izbriše vse vrstice, ki so združene - spojene v eno celico.

Tudi če makro posnamem in potem poskušam izvajati brisanje na neki fiksni vrstici mi posneti makro izbriše vse vrstice, ki so spojene!

Prosim za pomoč
Hvala
LP, Boštjan

[admin]

Pozdravljeni,

Malce krajše, pa bo šlo :

Koda: Izberi vse

Rows(vrsta).Delete