בהגדרת המשתנים Temp1 ו-Temp2 כדאי... להשתמש ב - Rng.Column במקום המספר 4. זה יאפשר להשתמש בפונקציה גם כשנתוני הרווח נמצאים בעמודה שונה. כמו כן, נראה לי שכדאי לתת את עמודת התאריך כפרמטר.