Copy data sets into Master data set

[jennyblack9]

Hello,

I have about 3000 individual data sets that need to be consolidated into one Master data set. The individual data sets have random blank rows that need to be deleted when pasting into the Master data set. Attached is an example data set and the Master data set.

For example, rows 1-8 need to be deleted, row 10 needs to be deleted, rows 66-73, etc.

Any help is greatly appreciated!!
Jenny

[Norie]

Try this.

SSub GetMaster()
Dim rng As Range

    With Sheets("dataset")
        .Rows(10).Delete
        .Rows(1).Resize(6).Delete
        Set rng = .Range("A1").End(xlDown)
        Do While rng.Row <> .Rows.Count
            rng.Offset(1).Resize(10).EntireRow.Delete
            Set rng = rng.End(xlDown)
        Loop
    End With
    
End Sub