קוד למציאת עמודה אחרונה

[נאמן למקור היחיד]

קוד למציאת עמודה אחרונה

שלום
יש לי קובץ עם המון מידע ומידי יום אני מוסיף עמודה חדשה.
אני רוצה לבצע אוטומציה לכך.
אני זקוק לקוד שימצא את העמודה האחרונה בשימוש (יש מידע החל משורה 1 ועד 100) ואז יעתיק אותה וידביק באותו מיקום ללא נוסחאות (רק ה value).
כמובן שכל יום העמודה צריכה לזוז שכן העמודה האחרונה משתנה כל יום.

תודה

 

[iyyi]

נסה את המקרו הבא

Sub copyLastColAsValues()
fr = 1  ' First row
With ActiveSheet.UsedRange
    lc = .Columns(.Columns.Count).Column
    lr = .Rows(.Rows.Count).Row
End With
Range(Cells(fr, lc), Cells(lr, lc)) = Range(Cells(fr, lc), Cells(lr, lc)).Value
End Sub

צריך להגדיר במקרו את השורה הראשונה ממנה מתחילים לחפש.

 

[נאמן למקור היחיד]

תודה רבה