Sub datatransfer()
Dim j As Integer
Dim k As Integer
Dim n As Integer
Sheets("Master").Activate
sheetcounter = 2
k = 24
j = 1
Do
Do Until Cells(j, 1).Value = Worksheets(sheetcounter).Cells(15, 5).Value
j = j + 1
Loop
n = j + 1
Do
Worksheets(sheetcounter).Cells(k, 4).Value...