פורום השדים האדומים

שאלות:
1) אני מעוניין ליצור מאקרו שיוצר לי שורה חדשה לפני השורה האחרונה שלי בכל פעם שאני מסיים להקליד בשורה שלפני. כמו כן אני צריך שהמיקום של התאים בשורה (נגיד A4,B4..) לא ישתנה - כי אני משתמש
במיקום שלהם בחישוב של נוסחאות שונות במסמך...
(מצאתי את המאקרו הבא:
Sheets("Sheet1").Range("A4").Select
ActiveCell.EntireRow.insert Shift:=xlDown

Sheets("Sheet1").Range("A4:E4").Select
Selection.Borders.Weight = xlThin
שתי בעיות איתו: א) הוא משנה לי את המיקום של השורה האחרונה ב) הוא לשימוש עם כפתור ואני רוצה שזה יהיה אוטומטי

תודה