Most, hhgy látom is már egész másképp értem amit írtál.
Szerintem az a legegyszerűbb, ha az A3 cellába beírod egyszerűen ezt:
=SOR(A3)-2
és "továbbhúzod." ameddig kell.
Ha sort szúrsz be, azt pedig pl következő módon:
Shift + "Space"
ctrl+ "c"
ctrl+ "+"
vagy még egyszerűbb:
Shift + "Space"
ctrl+ "+"
ctrl + "l" (L)
Ha egyik sem tetszik akkor szólj, szívesen írok egy szkriptet is.
De ezt pl próbáld ki:
Sub Makró1()
Range(Cells(ActiveCell.Row, "B"), Cells(ActiveCell.Row, "K")).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
Megjegyzem, tök felesleges bármelyik fenti hercehurca, mert ha csak a B:K tartományt jelölöd ki sorbeszúrás helyett, akkor pontosan az történik amit te szeretnél...
így:
B:K oszlopok ijelölése majd Ctrl+Space majd Enter
bővebben:
0. B:K oszlopok kijelölése ott ahová sor szúrnál be.
1. Ctrl+Space (vagy jobb egérgomb katt. Gyorsmenüből kiválasztod a Beszúrást)
2. Enter. (Ha minden igaz felismeri hogy te mit szeretnél, és alapból a megfelelő rádiógomb lesz bjelölve a felugró panelen - mégpedig a "cellék eltolása lefelé")