VBA Copy cells from each sheet into MASTER sheet

[Sworks]

Hi,

Looking for a VBA code that'll copy and paste (for example) C9, F12, H25 from every single sheet into the rows of a Master sheet.

Thanks

S

 

[alansidman]

Option Explicit

Sub Cpy2Mstr()
    Dim s As Worksheet
    Dim M As Worksheet
    Set M = Sheets("Master")
    Dim lr As Long
    For Each s In Worksheets
        Application.Union(s.Range("C9"), s.Range("F12"), s.Range("H25")).Copy
        lr = M.Range("A" & Rows.Count).End(xlUp).Row + 1
        M.Range("A" & lr).PasteSpecial xlPasteValues
    Next s
    MsgBox ("Completed")
End Sub