מעבר עמוד אוטומטי בכל פעם שהערך משתנה

[שמואל ש.]

אני רוצה לעשות שבכל פעם שהערך משתנה בתא מסויים יהיה מעבר עמוד באופן אוטומטי.
דהיינו יש לי אקסל שיש לי שם טור של כמה תאים כתוב שם בננה, ואחרי זה כמה תאים כתוב מלפפון, ואני רוצה שאחרי הבננה יהיה מעבר שורה באופן אוטומטי, וכן הלאה.
יש כזה דבר?

[למה מה קרה]

@שמואל-ש
אשמח אם תפרט יותר מה בדיוק אתה רוצה
מי מכניס את הנתונים?
לאיפה הוא מכניס ?
איפה צריך ירידת שורה אוטומטית?

או שתעלה את הקובץ.

[שמואל ש.]

@למה-מה-קרה יש את קובץ כמו זה, ואני רוצה שאחרי מילוי הנתונים לפני ההדפסה אוכל אני ללחוץ על כפתור שיבצע אוטומטית מעבר עמוד בין הבננה לתמוז ובין התפוז למלפפון וכן הלאה.
מקווה שהובנתי

[פייתוניסט]

@שמואל-ש מעבר עמוד?????
מעבר שורה אולי.

[פייתוניסט]

@שמואל-ש
קוד מאקרו:

    Dim ws As Worksheet
    Dim lastRow As Long
    Dim currentRow As Long
    Dim columnNumber As Long
    
    ' הגדרת העמודה לפי מספר העמודה (1 = A, 2 = B, וכו')
    columnNumber = 1
    
    ' הגדרת הגיליון שבו נרצה לפעול
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' הגדרת השורה האחרונה בעמודה
    lastRow = 50
    
    ' עובר על כל התאים מהשורה האחרונה ולמעלה, תוך שימוש בקפיצות של -1
    For currentRow = lastRow To 2 Step -1
        ' בדיקת האם שני התאים הסמוכים מכילים ערכים שונים
        If ws.Cells(currentRow, columnNumber).Value <> ws.Cells(currentRow - 1, columnNumber).Value Then
            ' הוספת שורה חדשה בין התאים
            ws.Rows(currentRow).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        End If
    Next currentRow

להגדרת השורה האחרונה בקובץ הכנס

ws.Cells(ws.Rows.Count, columnNumber).End(xlUp).Row