Excel- VBA Automatyczne numerowanie i sortowanie na podstawie zadanego numeru LP

W arkuszu dodałem kod który automatycznie numeruje komórki jako liczba porządkowa. Kod wygląda tak:

Jednak docelowo pierwsza lista będzie miała 20 pozycji a druga lista będzie miała 120 pozycji. W sumie to żaden problem, jednak jak dodam do kodu wszystkie 140 pozycji to kod będzie dość spory, czy można to jakoś zminimalizować tak aby zachować działanie kodu na dwie listy? Z góry chciałbym dodać że kod zostanie jeszcze bardziej rozbudowany o dodatkową czynność którą będzie musiał wykonywać ale jeszcze nie wiem jak to zrobić, a dokładnie chodzi mi o to że jak widać w moim kodzie odpowiednie komórki mają przydzieloną liczbę porządkową. I to właśnie chciałbym wykorzystać w ten sposób że jeśli w którejkolwiek liście w kolumnie A np. w pozycji 5 wpiszę liczbę 2 to żeby kod wyciął te dwa wiersze przynależne pod tą komórkę i przeniósł je w miejsce gdzie powinna być liczba porządkowa 2, tak jak to pokazałem na screenie, czy jest to do zrealizowania?

Problem w tym, że nigdy nie uda Ci się wpisać innej liczby porządkowej przy tej postaci kodu (nawiasem pisząc, zdała by się pętla). Zanim makro "wyprostuje" numerację musiałbyś zrealizować kopiowanie... Czyli odpowiedź brzmi: Tak, jest do zrealizowania.

Więc same przenoszenie wierszy w odpowiednie miejsce zrealizuję ręcznie ponieważ odpowiedniego kodu kopiowania i przenoszenia nie potrafię napisać. Ale jak zmniejszyć kod z pierwszego mojego pytania żebym nie musiał w kodzie pisać 140 linijek ale podać powiedzmy na to zakres numerowania komórek biorąc pod uwagę że komórki są łączone po dwie?

Spróbuj z arkuszem z załącznika (podmień kod)

Ok do działa wyśmienicie, ale chcę teraz zrobić drugą listę która będzie się numerowała znowu od liczby. Zrobiłem tak jak w poniższej liście jednak kolejna lista zacznie się numerować ale tylko pierwsza pozycja drogiej listy i to jeszcze kolejną liczbą jaką została zakończona pierwsza lista czyli 21

Następna lista musi zaczynać się od 43 wiersza. Czyli odwracając działanie w kodzie:
(43+1) / 2 = 22
I trzeba zresetować LP przed następną pętlą

No już myślałem że coś pomieszałem bo cuda zaczęły się robić ale widzę że poprawiłeś
Dzięki wielkie za pomoc

Dodano po 23 [minuty]:

Teraz jest już wszystko ok. Niestety kod powoduje że czynność wykonuje się za każdym razem jak kliknę gdziekolwiek w arkuszu i spełnienie zadania trochę trwa dlatego kod przeniosłem do Modules i dodałem przycisk którym w razie potrzeby odświeżam arkusz. A kod wygląda tak w arkuszu w którym potrzebowałem go wykorzystać: