Need code to copy and paste based on variable rows

Hello
I am writing a macro to combine a few different different spreadsheet.
Out team individiually type out a list of dailt deliverables.
Every morning, someone manually goes in an grabs all the rows in everyone's files and combines then in a master file.
The amount of rows changes day to day based on work load.
But I am not sure the code to use to select only the rows that have data in them.
Can anyone help with that code??
Thanks
Bonnie

Hi Holger, this is my code, can you let me know where I should put the above code in?
Also, do you know what code I would use to add a subject into the email listed in the code??
Thank you so much!!

Sub Test1()
'
' Test1 Macro

ChDir "C:\Users\bonnie.\Desktop\test\Test Files"
    Workbooks.Open Filename:= _
        "C:\Users\bonnie.\Desktop\test\Test Files\Master Deliverables Spreadsheet __.xlsx"
    Application.DisplayAlerts = False
    Range("D3").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Workbooks.Open Filename:= _
        "C:\Users\bonnie.\Desktop\test\Test Files\Mandy 4.30.13.xlsx"
    Rows("1:12").Select
    Selection.Copy
    Windows("Master Deliverables Spreadsheet __.xlsx").Activate
    Range("A6").Select
    ActiveSheet.Paste
    Windows("Mandy 4.30.13.xlsx").Activate
    Application.DisplayAlerts = False
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "C:\Users\bonnie.\Desktop\test\Test Files\Rob 4.30.13.xlsx"
    Rows("1:12").Select
    Selection.Copy
    Windows("Master Deliverables Spreadsheet __.xlsx").Activate
    Range("A6").Select
    ActiveSheet.Paste
    Windows("Rob 4.30.13.xlsx").Activate
    Application.DisplayAlerts = False
    ActiveWindow.Close
        ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\bonnie.\Desktop\test\Test Files\old\Master Deliverables Spreadsheet " & Format(Now(), "mm.dd.yy") & ".xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    With ActiveWorkbook
    Select Case Day(Now())
    Case 1, 21, 31
    ordsuffix = "st"
    Case 2, 22
    ordsuffix = "nd"
    Case 3, 23
    ordsuffix = "rd"
    Case Else
    ordsuffix = "th"
    End Select
    .SendMail Recipients:=Array("b@aaaaaaaaaa.com", "b@aol.com"), Subject:="Deliverables Test- " & (MonthName(Month(Now()))) & (Day(Now())) & (ordsuffix)


    End With
    
End Sub

Mandy 4.30.13.xlsxMaster Deliverables Spreadsheet 4.30.13.xlsxRich 4.30.13.xlsx

I need something that will go out and open each one and copy and past into master under the last one, so the cells will always ver variable.
Thanks!

Hi Holger
This worked perfectly!!
The files are in all different folders, I think I am going to make everyone use a standard file name, only their name on their current file, so I don't have the build the dates into the file names, it would be a pain with people not updating and weekends. My last question for you is I need to copy over the the Values and Number formats, the master does not have the coloring we use for the file. Please let me know what I can do you copy that over.
Thanks soooo much!!!

Bonnie

Here is the source file and the master.
How would I go about setting in the formatting since the rows change daily in all the different lists?
Thanks
Bonnie

Hi Holger
Not sure that will work, I am using your code to copy and paste the different ranges:
How to I add it into this code?

Dim wbMaster As Workbook
Dim wbClone As Workbook
Dim strPath As String
Dim lngFree As Long
Dim lngLast As Long


    strPath = CurDir
    ChDir "C:\Users\bonnie.worthington\Desktop\test\Test Files"
    Set wbMaster = Workbooks.Open(Filename:= _
        "K:\Daily Deliverables Spreadsheet\Master Spreadsheet\Master Deliverables  __DO_NOT_DELETE.xlsx")
    Set wbClone = Workbooks.Open("K:\Daily Deliverables Spreadsheet\Cassandra\2013\Cassandra.xlsx")
    lngFree = wbMaster.ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1
    lngLast = wbClone.ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    wbMaster.ActiveSheet.Rows(lngFree).Resize(lngLast).Value = wbClone.ActiveSheet.Rows(1).Resize(lngLast).Value
    wbClone.Close False