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