Add value to master sheet from different sheet

Hi Beneesetas,

I put them according to their year, month, zone

Sub Beneesetas(): Dim wm As Worksheet, ws As Worksheet, wf As Worksheet
Dim Y As Long, M As String, Z As String, r As Long, c As Long
Set wm = Sheets("Master"): Set ws = Sheets("Scaffolding"): Set wf = Sheets("Fire Safety")
GetS: Y = ws.Cells(3, 3): M = ws.Cells(3, 9): Z = ws.Cells(5, 5)
c = wm.Rows(1).Find(Z).Column: Do Until wm.Cells(2, c) = Y: c = c + 1: Loop
r = 3: Do Until wm.Cells(r, 1) = M: r = r + 1: Loop: wm.Cells(r + 1, c) = ws.Cells(30, 6)
GetF: Y = wf.Cells(3, 3): M = wf.Cells(3, 9): Z = wf.Cells(5, 5)
c = wm.Rows(1).Find(Z).Column: Do Until wm.Cells(2, c) = Y: c = c + 1: Loop
r = 3: Do Until wm.Cells(r, 1) = M: r = r + 1: Loop: wm.Cells(r, c) = wf.Cells(30, 6)
End Sub