Code to copy and paste those cells that have data
 

I am looking for a VBA code that will allow me to select cells that only
contain data from sheet 2-9 and paste it in sheet 1. For example Sheet 2 has
data in Range A4:F9 and Sheet 3 has data in Range A4:F5 and I need that data
to be pasted into Sheet1. Are there any ideas on how to do this? I need
help.....