VBA code - copy info from sheet 1 to sheet 2 but NOT COPY BLANK CELLS

need some help please

I am creating a spreadsheet which records the time spent by staff carrying out certain tasks and runs reports so that management can see how much time is spent carrying out tasks by staff member or by task.

Sheet 1 I have tried to design as a user friendly sheet for staff to input their times, using drop down menus the user can find himself/ herself, find the task he/she has done and the manually input the time spend undertaking that work. with space in 4 rows (4-7) for up to 4 tasks to be added

There are 4 columns for this info
Date - cells D4-D7
Legal Adviser - cells E4-E7
Work Undertaken- cells F4-F7
Time- cells G4-G7

I have included a button in sheet 1 to copy the info in cells D4-G7 from sheet 1 to sheet 2 and then clear the data from those cells so that sheet 1 is blank again for the next user to input their data.

The problem I have is that the code will only copy the data if all 4 rows 4-7 are completed, whereas I want the code to copy only those rows which are completed and ignore any blank ones. So for example if the legal adviser has only carried out 2 types of work that day, and therefore only filled in rows D4-G4 and D5-G5, the code will only copy those rows onto sheet 2 and will not insist that all 4 rows be completed.

The code I currently have is:

Please Login or Register  to view this content.

I have fudged this through trial and error. Is there any way to tinker with this code so that it will ignore blank cells within the range of E4-G7 range?
Any help would be greatly appreciated
Thanks

Code Tags Added
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html



(I have added them for you today. Please take a few minutes to read all Forum Rules and comply in the future.)