VBA Copy Paste Multiple Sheet to one Master Sheet

[SuperMan02]

Hello Everyone,

I would like to ask an assistance, I am new in scripting VBA and I need help on how I can transfer all the data from multiple sheets to one Master sheet in the Excel File.

I have 6 Sheets where I'll get the data and the data are in Range A7:K16 (this range applies to all the sheet). Not all rows are filled out, it will always depend if we received data from certain Accounts. I would like to transfer all of the data in the Master File wherein if the row are blank the next sheet will be paste in the master file in the next blank row.

Hope someone can help me and I truly appreciate your time.

 

[Michael M]

Do you need something like this..UNTESTED

Sub MM1()
Dim ws As Worksheet, lr As Long, r As Long
lr = Sheets("Master").Cells(Rows.Count, "N").End(xlUp).Row + 1
For Each ws In Worksheets
    If ws.Name <> "Master" Then
     ws.Activate
     Range("A22:L31").Copy Sheets("Master").Range("N" & lr)
        lr = Sheets("Master").Cells(Rows.Count, "N").End(xlUp).Row + 1
    End If
Next ws
End Sub

 

[SuperMan02]

There's no condition on the code wherein if Column L of all sheet is equal to "No" it will not be paste in Master Sheet

Do you need something like this..UNTESTED

Sub MM1()
Dim ws As Worksheet, lr As Long, r As Long
lr = Sheets("Master").Cells(Rows.Count, "N").End(xlUp).Row + 1
For Each ws In Worksheets
    If ws.Name <> "Master" Then
     ws.Activate
     Range("A22:L31").Copy Sheets("Master").Range("N" & lr)
        lr = Sheets("Master").Cells(Rows.Count, "N").End(xlUp).Row + 1
    End If
Next ws
End Sub

 

[Michael M]

UNTESTED

Sub MM1()
Dim ws As Worksheet, lr As Long, r As Long
lr = Sheets("Master").Cells(Rows.Count, "N").End(xlUp).Row + 1
For Each ws In Worksheets
    If ws.Name <> "Master" Then
     ws.Activate
        For r = 22 To 31
           If Range("L" & r).Value <> "No" Then
               Range("A" & r & ":L" & r).Copy Sheets("Master").Range("N" & lr)
               lr = Sheets("Master").Cells(Rows.Count, "N").End(xlUp).Row + 1
           End If
        Next r
    End If
Next ws
End Sub