VBA looping through empty cells and copying to new sheet

[SilvEn]

Hi, i'm having a great deal of trouble with this. I searched everywhere and found smiliar codes but nothing of the exact and unfortunately, my vba skills is not at the level to modified any codes. Anyway.

Below is a portion of how my data looks like. Ther is a set of data for each month all the way down to December. However, after each month of data come an empty cell. Because the number of total rows in each month may change, I can't just explicitly refer the cells. but the amount of empty cells remain constant which is 12

starting from A4, I need to find the first empty cell in Column(A) then copy the month of data below it to new sheet. then find the next empty cell, copy next month of data to new sheet and loop all the way until 12th empty cell or December data has been copied. so in this case, i need to first copy rows 4:14, then 15:25, then 26:36, ect

Any help would be greatly appreciated.

Thanks

 

[JLGWhiz]

Assuming the posted sheet is sheet 1 of the source workbook. If not, modify where Edit is indicated below.

Sub makeMoSheets()
Dim sh As Worksheet, i As Long, lr As Long
Set sh = Sheets(1) 'Edit Sheet name
lr = sh.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 4 To lr Step 11
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Name = Format(sh.Cells(i + 2, 2).Value, "mm-dd-yyyy")
        sh.Cells(i, 1).Resize(11, 1).EntireRow.Copy ActiveSheet.Range("A1")
    Next
ThisWorkbook.Save
End Sub

 

[SilvEn]

hey thanks for the reply. i'm sorry for the unclear-ness. i was looking for 1 new sheet. and copy paste each month at the end of the previous month.

for example, if month 1 starts at column (A) and ends at column (AF) then month 2 starts at column (AG) on the same row. i'm basically trying to align all 365/366 days and its data on the same rows.

please help. and thanks.