Combine All The Records In The The Mentioned Sheets To The Master Sheet

For Each Ws In Sheets(Array("SHEET101", "SHEET102", "SHEET103", "SHEET104", "SHEET105", "SHEET106", "SHEET107", "SHEET108"))
With Ws

Finalrow = .Range("A65536").End(xlUp).Row
Set CpyRng = .Range("A2", .Cells(Finalrow, "AR"))
If Finalrow > 1 Then
CpyRng.Copy Sheets("Master").Cells(Rows.Count, "A").End(xlUp)(2)
End If

End With
Next Ws

Basically what it does is simply combine all the records in the the mentioned sheets to the master sheet.

There is a little problem. When one of the sheets are on a filtered mode, the data copied in the "Master" sheet are only visible cells.

Un-filtering before copying is an option (i.e. putting the code ".ShowAllData") IF I can put the exact filtering back after copying. Reason being that the sheets are owned by other parties and they do not want their own filtering be removed.